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Introduction 


Almost anything new and different can be exciting for a time. And 
almost all excitement wears off after a while. For many people, own- 
ing their own microcomputer is such an experience. At first there 
seem to be thousands of things to do to make life easier and more 
interesting. For many people, however, the magic fades and the com- 
puter becomes simply a checkbook balancer and game player if it 
doesnt actually end up in the closet. The intent of this book is to 
provide a new infusion of excitement about what you can do with 
your home computer. 

With one exception, the programs in this book are quite short, 
easy to copy, and easy to modify. The text will suggest ways you can 
tailor the programs for your own use—for party games, data analysis, 
school work, or learning to program. The 41 1/2 things to do range all 
the way from a dating program that will match you with a potentially 
congenial date to a mini-word processor, a Dungeons and Dragons 
dice rolling program, an excuse generator, and strategy and music 
games. It includes practical programs such as a guitar tuner and chord 
teacher, a metric converter, and a comparison shopping program. It 
also contains party games and other activities that you can do with 
your friends. Underlying all of these programs are the ideas that you 
can modify a program and change it to suit your purposes and that 
programming can be fun and lead to fun as well. 

The central part of the book provides you with a number of 
simple computer utilities. The most common utilities in our lives are 
gas, electricity, and the telephone. They are utilities in that they can 
be used in many different ways. They provide the energy or the 
instrument and you determine the particular use. The same thing is 
true of computer utilities. They provide a form that you can use in 
many different ways with a simple input of your own. Thus, the 
balloting program in this book can be used for club elections, picking 
the top ten records, doing personal preference polls, etc. The utility 
gives you the structure and you provide the content. The same is true 
of the graph generating program. It can be used to measure sales and 
inventories, to compare school grades, to illustrate the results of 
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science experiments, or for opinion surveys. The text will suggest 
some applications for the utilities and show you how to list and 
change the programs in the book. You should feel free to go beyond 
the text and create your own modifications, and, maybe, build your 
own utilities. 

All of the programs in this book fit on one disk. With the 
exception of the program for the Dozo game, they are easy to copy and 
take up less than two pages of text. It would make sense for you to 
copy and save on disk those programs you want to use or modify. 
Copying the same program more than once is a bore and you can 
always save your original copy as well as your modifications. After 
you сору a program, however, run it several times to make sure that 
some simple copying error didn't slip in. Try all the options the pro- 
grams offer. Play to win, to deliberately lose, and try any way you can 
to trick the program into bombing. We've done this ourselves and are 
confident that the programs work. But, human error always has a way 
of creeping in. We have been careful to eliminate ours and believe it 
makes sense for you to take the extra time to check your work. 

Finally, for the 1/2 of a thing you can do with your computer. 
Actually it is not one-half of a thing but many halves—many ideas 
that you can turn into programs as you become comfortable with 
BASIC. These final ideas are just starters, teasers, suggestions of ways 
in which you can focus the use of your programming skills on creat- 
ing programs others will enjoy using. 
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Т. programs in this section all fool around with words. They 
range from an anagram generator to an excuse generator and include 
word hunt puzzles, a sentence scrambler, and even an arcade-type 
game that will teach you how to use the keyboard. Many of the 
programs are easily modified and we encourage you to copy them and 
change them in any way you like. 


Joystick Word Hunt 


You probably have seen many word hunt puzzles. They consist of a 
Square or rectangle of letters in which a number of words are hidden 
either vertically, horizontally, or diagonally, and backwards and for- 


wards. Here is a very simple word hunt grid and the list of words 
hidden in it: 


hidden words: last, cat, rat hidden word grid: 
curl, pot, coat cor ] 
oaar 
astu 
tope 


The object of the word hunt is to find the words on the list hidden in 
the grid. 

The program for Joystick Word Hunt allows you to choose any 
15 words of up to 15 letters long. Then, the computer automatically 
generates a word grid for you or your friend to solve. Here is a sample 
list and the grid the computer generated. You'll find that even if you 
chose the words yourself it is not easy to find them all in the grid. 
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You need a joystick in port 1 to play this game. Move the 
flashing cursor on the game board to the first letter of any word you 
find. Press the joystick button. A message will appear: WORD 
NUMBER. Type only the number that corresponds to the word you've 
found. Press RETURN. If you've found the correct match, the word 
will appear in inverse characters on the grid. Keep playing until you 
find all 15 original words. 


100 REM ### JOYSTICK WORD HUNT www 
110 GOTO 700 

200 GOSUB 900:FOR M=0 TO 14:L-L(MD):T$- 
ИФ (М#+15+1, М#15+1_) : POSITION 2,54M:? M41 
° «= 

210 XD=INT(RND (1) #3—1) : YD- INT (RND (1) +3 
-1):1F XD-O AND YD-O THEN 210 

220 X=INT(RND (1) # (15~ (ABS (XD) #(L-1)))) 
“ТЕ XD<O THEN Х-14-Х 

250 Y=INT (RND (1) + (15- (ABS (YD) #(L—-1)))) 
:IF YD<O THEN Ү-14-Ү 

240 XP=X:YP=Y:FOR T=1 TO L:IF XP<O OR 
XP>14 OR ҮР<О OR YP>14 THEN 210 

250 POSITION 22+XP, 6+YP: GET #2,K:IF Ке 
>32 AND К<>А5С(Т%(Т,Т)) THEN 210 

260 XP=XP+XD: YP=YP+YD:NEXT T:X(M)=X:Y( 
М) =Ү: ХО (М) =Хр: YD (М) =YD:FOR T=1 TO L:PO 
SITION 22+X,6+Y:PUT #2,ASC(T$(T,T)) 
270 X=X+XD:Y=Y+YD!INEXT T:POSITION 4, 6+ 
М:? Т%:МЕХТ М 

ЗОО FOR X=0 ТО 14:FOR Y=0 TO 14:POSITI 
ОМ 22*X,6*Y:GET #2,K:IF K=32 THEN POSI 
TION 22+X,5+Y:PUT #2, INT (RND (1) #26) 465 
310 NEXT Ү:МЕХТ X:X=0: Y=0: WW=O 

400 Z=STICK(O):IF STRIG(O)=0 THEN 500 
410 IF 728 AND 7<12 THEN X=X-1:IF X«O 
THEN X=14 

420 IF Z>4 AND Z<8 THEN X=X+1:IF X214 
THEN X=0 

430 ТЕ Z=10 ОК 7-14 ОВ 7-6 THEN Y-Y-1: 
IF YXO THEN Y=14 

440 IF Z=9 OR 7-15 OR 2-5 THEN Y-Y«1:I 
F Y>14 THEN Y=O 

450 ТЕ 2<>15 THEN POKE 55279,0 

460 POSITION 22+X,4+Y:GET #2,K:POSITIO 
М 22*X,6*Y:IF K<128 THEN PUT #2,K+128 
470 IF K>127 THEN PUT 42,K-128 

480 FOR T-1 TO 4:МЕХТ T:POSITION 22+X, 
&6-Y:PUT #2,K:GOTO 400 

500 TRAP 520:РОКЕ 764,255:POSITION 4,4 
2? "WORD NUMBER"; : INPUT G:G=G-1 
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510 IF Х(6) =Х AND Y(G)=Y THEN 500 

520 GOSUB 910:GOTO 400 

600 XPzX:YPzY: T$-W$ (G#15+1,G6#154+L(G)): 
FOR T=1 TO L(G) :POSITION 22«XP, é6+YP: PU 
Т 42,ASC(T$(T, T224128 

610 POSITION S+T, 6*G8:PUT #2, ASC (ТФ (Т, Т 
)) +128: XP=XP+XD (6) : YP= YP+YD (б): NEXT T: 
GOSUB 910 

620 X(G6)=-1:WW=WW+1:IF WW«15 THEN 400 
630 POSITION 4,4:? "YOU DID IT! PRESS 
START" 

640 IF PEEK (55279) < >65 THEN 640 

650 RUN 


700 OPEN #2,4,0,"S:":DIM W$(225),T$(15 
),L (14), x(14), ¥(14),XD(14), YD(14): GRAF 
HICS о: РПКЕ 752, 1: OPEN #1, 4, о, "К: " 

800 GOSUB 900: POSITION 2, 5: ? “ENTER FI 
FTEEN WORDS..." 

810 FOR T=0 TO 14:POSITION 2,7%Т:? Tri 
3".":POSITION 6, 7+T: INPUT T$:IF T$z"" 
THEN T-T-1:NEXT Т 

820 (Т) ZLEN(CT$0 :W$ (T#1541, T#15+L (T)) = 
T$:NEXT T:POSITION 2,5:? "ARE YOUR WOR 
DS CORRECT?" 

850 GET 41,K:IF СНКФ (К) ="Ү" THEN 200 
840 GOTO 800 

900 ? CHR$(125):POSITION 7,2:? "жи JO 
YSTICK WORD HUNT 3s": RETURN 

910 POSITION 4,4:? " "s 
RETURN 


Anagrams 


An anagram is a scramble of letters. For example, the word and has 
the following anagrams: 


nad 
nda 
adn 
dna 
dan 


Sometimes the anagram of a word gives rise to other words. For exam- 
ple, consider these two sets of anagrams: 


word: top 
anagrams: pot 
pta 
tpa 
opt 
otp 


In this case, two anagrams of “top” are also words—“opt” and "pot." 


word: meat 

anagrams: team eatm 
tema eamt 
tmea emat 
tmae emta 
tame etma 
taem etam 
aemt meta 
aetm mate 
amet maet 
amte mtae 
atem mtea 
atme 


Of the 24 variations, only three and at most four (if you accept meta 
as a word] make up words. An interesting and, so far as we know, 
unsolved word problem is whether there is a four letter word all of 
whose anagrams make up other words. You could easily write a com- 
puter program that could generate all the anagrams of any given word 
using string variables. However, the program here is more of a games 
form. You type in any word and the computer scrambles it. Then ask 
a friend to try to unscramble it. The computer will keep score and tell 
your friend when he or she has the correct unscrambling. 


100 REM ¥¥¥ ANAGRAMS жек 

110 DIM W$ (30), AS$ (30) „ВФ (30) 

120 GRAPHICS O:POKE 752,1 

150 PRINT CHR$(125):POSITION 12, 3: PRIN 
T "4344 ANAGRAMS 39" 


140 POSITION 2,9:PRINT “ENTER YOUR WOR 
D..." 

150 POSITION 2,11:PRINT CHR$(156):POSI 
TION 2,11:INPUT W$:1F W$-"" THEN 150 
160 POSITION 2,9:PRINT "TRY TO SOLVE T 
HIS ANAGRAM...":POSITION 2,11:PRINT CH 
R$ (156) 

200 B$(1)2" ":B$(SO)-" ":B$(2)sB$:L-LE 
N(WS) zZA$z"":FOR T=1 TO L 

210 R=INT (RND (1) #L) 41: IF ВФ (В, FO =ч" T 
HEN 210 

220 BS(R,R)="#": AS(T,T)=W$(R,R) S NEXT Т 
SIF A$-W$ AND L>1 THEN 200 

230 POSITION 2,11:PRINT A$:B=20-LEN(W$ 
)/2:POSITION B,6:FO0R T=1 TO L:PRINT CH 
К% (95) ;:МЕХТ Т 

240 TRAP 240:POSITION 2,14:PRINT CHR$( 
156):POSITION 2,14:1NPUT B$ 

250 FOR Т=1 TO L:POSITION B*T-1,65:IF B 
$(T, T) -W$(T, T). THEN PRINT W$(T,T) 

260 NEXT T:IF В%<>М% THEN 240 

270 POSITION 15,18:PRINT "THAT'S IT!" 
300 POKE 764,255 

310 IF PEEK(764)z255 THEN 310 

320 POKE 764, 255: GOTO 150 


Sentence Scrambler 


This program will take a sentence and scramble all of the words in it. 
For short sentences, the unscrambling is quite easy. For example: 


walk. took a | 

quite easily unscrambles into: 

| took a walk. 

Try this one, however: 

at time the You stars. tell looking by the can 
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When you type in the program be very careful about capitals, punc- 
tuation, and spacing. The computer responds to all of these different 
aspects of writing. Spaces between words are particularly crucial in 
mixing up sentences because sensing spaces is the only way the 
computer can tell where a word ends. The computer cannot read, at 
least yet. A blank space is just another symbol to it, one which, in this 
program, indicates where a unit to be scrambled ends. 

The main functions used in this program are LEN(A$) апа 
А$(Х,Х). LEN(A$} tells you the length of any word you store in the 
computers memory. For example, in Atari BASIC, if you dimension 
А5 and input the word “FINE” as in the following program: 


10 DIM A$(20) 
20 INPUT A$ 


then | LEN(A$)-4 


The function A$(X,X} lets you print out any letter or sequence of 
letters in A$. Thus, using the same example: 


A$(1,1)=F 
and A$(2,3)-IN 


Here is a simple educational program illustrating the use of LEN and 
A$: 


10 DIM A$(26),B$(1) 

20 A$-"ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

30 PRINT “HOW MANY LETTERS ARE IN THE ALPHABET? 

40 INPUT X 

50 IF X= LEN (A$) THEN PRINT "GOOD. NOW TRY THIS:" 

60 LET Y=INT(RND(1)*26)+1 

70 PRINT "WHAT LETTER COMES ”;Y;"th in the alphabet?" 

80 INPUT B$ 

90 IF B$-A$(Y, Y) THEN PRINT "RIGHT." 

100 IF B$< > A$(Y, Y) THEN PRINT "I'M SORRY YOU MISSED." 


This program checks the length of A$ and matches it with the 
number you put in for X. Then it picks a random position out of A$ 


using the Y variable and asks you which letter corresponds to that 
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position. This is just a simple use of LEN and А5(Х,Х). Play with these 
functions and look at your BASIC Reference Manual for more infor- 
mation on how to use them. 

Now here is the scrambled sentence program: 


100 КЕМ ### SENTENCE SCRAMBLER www 

110 DIM 1 (29) ,M(29) ,A$(600) , S$ (120) „Ва 
(120) : GRAPHICS O:POKE 752, 1 

120 PRINT CHR$(125):POSITION 7,3:PRINT 
"ини SENTENCE SCRAMBLER жән" 

130 POSITION 2,7:PRINT "ENTER YOUR SEN 

TENCE. ..":PRINT :PRINT 

140 POKE 752,0: INPUT S$:POKE 752, 1:605 


UB 500 

150 A$(1)="" ":4$(500)z" ":4A$(2)-A$:B$- 
A$: L=LEN (S$) :С=0:Р=1:ЕЕ=0 

160 FOR T=1 TO L:IF 5% (T, T)=" " THEN 2 
оо 

170 IF S$(T,T)="." OR S$(T,T)="'i"“ OR S 


$(T,T)="2" THEN EE-1:GDTO 200 

180 NEXT T:T-T-1:EE-1 

200 1 (С) =Т-Р+1:А% (CX20*1,C* 20420) 28$ (P 
,T?:IF EE-O THEN C-C«1:P-T*1:NEXT T 
ЗОО L(C)=L(C)+1:FOR T=0 TO C 

510 RzINT(RND(1Y*(C*1)) 41: ТЕ BS(R,R)=" 
*" THEN 310 

520 BS(R,R)="#"2M(R-1) =TINEXT T 

330 POSITION 2,7:PRINT "TRY TO UNSCKAM 
BLE THIS...":PRINT :PRINT 

340 FOR Т=0 TO C:PRINT А$ (МСТ) #2041, M( 
T)*20*L (M(T))) $ : NEXT T 

350 POSITION 2,14:POKE 752,0: INPUT BS: 
POKE 752,1 

560 IF BS<>S$ THEN GOSUB 600:POSITION 
15,21:PRINT "TRY AGAIN":GOTO 350 

370 POSITION 14,21:PRINT "YOU DID IT'" 
:FOR J=17 TO 9 STEP -1:FOR Т=14 ТО O S 
ТЕР -2:S0UND 0,2,10,Т:МЕХТ T:NEXT J 
400 РОКЕ 764,255 

410 IF PEEK(764)=255 THEN 410 

420 POKE 744,255:G0TO 120 

500 FOR T=1 TO 8:POSITION 2,7:PRINT CH 
R$ (156) МЕХТ T:RETURN 

600 FOR T=1 TO 8:POSITION 2,14:PRINT С 
HR$(156):NEXT T:RETURN 
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Alphawiz 


This is the basic shoot ‘em up arcade game in its simplest form. The 
game displays the alphabet at the bottom of the screen. A target 
appears above one of the letters at the top of the screen. You have to 
press the correct letter to hit the target. The letters have a small 
amount of fire power and you will see your hits and misses on the 
screen. You get five points per hit and lose five per miss. 

If you want to play a little code game, take a look at the PRINT 
statement at line 20. It tells the computer to print out the alphabet in 
order at the bottom of the screen. Now, if you changed that line using 
a simple shift code as follows: 


ABCDEFGHIJKLMNOPQRSTUVWXYZ 
ZABCDEFGHIJKLMNOPQRSTUVWXY 


then, if you pressed A the Z would shoot; if you pressed B the A would 
shoot, etc. Your shooting would then be in code. After a while you 
could probably figure out the structure of the code. 


100 REM WEY OLPHONIZ wx» 

110 DIM TX(10), TY (10) : OPEN #1,4,0,"K:" 
120 GRAPHICS 5:SETCOLOR 1,9,8: SETCOLOR 
2,0,0:POKE 752,1:PRINT " ABCDEF GH 
I JKLMNOPORSTUVUX Y Z " 

150 COLOR 1:PLOT 1,39:DRAWTO 1,0: DRAWT 
O 78,0: DRAWTO 78,39:POKE 20,0: РОКЕ 19, 
O:POKE 764, 255 

140 TXzINT (RND (1) #26) *2-14: FOR T-O TO 
10: TX (T) =RND (1) #8-44TX: TY (T) =RND C1) #84 
7:NEXT T 

150 POSITION TX,11:PRINT #65; "BB":FOSIT 
ION TX,10:PRINT #63 "BB" 

160 POKE 654, 2: РОКЕ 657,4:PRINT “SCORE 
и "$987 04 “ 

170 IF PEEK(764)«»255 THEN 200 

180 IF PEEK(19)>14 THEN 400 

190 GOTO 170 

200 GET 41,K:IF K<65 OR K>90 THEN POKE 
702, 64: РОКЕ 694,0:50Т0 170 
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210 K=2*K-116:FOR Y=39 ТО 1 STEP -2-СО 

LOR 1:PLOT K,Y:SOUND О, 100-2#Y,8, Y/3 

220 IF Y=11 THEN LOCATE TX,Y,A:IF A=1 

THEN 300 

230 COLOR O:PLOT K,Y:NEXT Y:SOUND 0,0, 

0,0:S=S-5:GOTO 160 

ЗОО COLOR 2:SETCOLOR 1,4,8:FOR K=50 ТО 
150 STEP 5:V=15-K/10:SOUND 0,K,8,V:50 

UND 1,K+5,8,V 

510 PLOT TX(K/10-5),TY(K/10-5) : SETCOLO 

R 4,0,V:SETCOLOR 2,0,V:NEXT K 

320 COLOR O:FOR T-O TO 10:PLOT TX(T),T 

Ұ(Т):МЕХТ T:POSITION TX,11:PRINT #63" 
"SPOSITION TX,10:PRINT $6;" " 

330 SETCOLOR 1,9,8:85845:GÜ0TO0 140 

400 POKE 656,2:POKE 657,17:PRINT "жек 
GAME OVER 3««";:IF S>HS THEN HS=S 

410 POKE 656,3:POKE 657,4:PRINT “*HIGH 
: "jHS$:POKE 656,3:POKE 657,21:PRINT " 

Press БТАКТ"; СНА$ (253) ; :5=0 

420 IF РЕЕК (55279) <>›4 THEN 420 

430 GOTO 120 


Creative Name Machine 


Did you ever wonder how people come up with names for computer 
games or businesses or products? Most of the process is free associa- 
tion and fiddling around with words. The computer can often do this 
as well as people, especially if you make your original lists of words 
interesting enough. This program generates some names you might 
like to use one day. Some of them are COSMOS WEAVER, CHASM 
SPINNER, and VAULT PRODUCER. If you look at lines 310 and 410 
of the program you'll see the DATA statements that provide the 
words for the computer to play with. You can change these with any 
lists you have so long as you remember to separate the words by a 
comma. Line 140 reads a word from the list at 310 and line 150 reads a 
word from 410. The combination is what you see printed out. The 
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READ .. DATA ... statement in BASIC allows you to play around 


with lists of data. 
Now try our names and add some twists of your own. 


100 
110 
120 
130 
140 


REM жжж CREATIVE МОМЕ MACHINE www 
DIM А$ (20) , BS (20) 

GROUP 1=12 

GROUP2=10 

RESTORE 300:FOR T=O TO INT (RND (1) # 


GROUP1) : READ A$:NEXT T 


150 


RESTORE 400:FOR Т-О TO INT (RND (1) # 


GROUP2):READ BS:NEXT Т 


160 


R 2, 


170 
180 
190 
200 
210 
300 
310 


РОКЕ 752,1:РКІМТ CHR$(125):SETCOLO 
INT (RND (1) #16) ,2 

T=LEN (A$): T=T+LEN (BS) 

POSITION 20-T/2,10:? А6;" "; 5$ 
POKE 764,255 

IF PEEK (764) 2255 THEN 200 

GOTO 140 

REM +++ WORD GROUP 1 +++ 

DATA DUNGEON, VAULT, CRYPT, CAVERN, AD 


VENTURE , WORLD, ENCOUNTER, SPACE, CHASM, UN 
IVERSE, MICROCOSM, COSMOS 


400 
410 


КЕМ ##% WORD GROUP 2 ss 
DATA MACHINE, WEAVER, SPINNER, VENTUR 


E, BUILDER, SYNTHESIZER, INVENTOR, CREATOR 
» COMPOSER, PRODUCER 
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Excuse Generator 


Did you ever wish you had an automatic excuse generator that would 
cover you when you were late for work, forgot to do homework, or 
wanted to get out of a party or meeting? Well, here’s an attempt at one. 
Basically, this program consists of an empty letter form in which you 
fill in the particulars. If you don’t like the way weve done it, you 
change all of the PRINT statements in the program or add some new 
ones of your own. The program is a phoney personal letter generator. 
You can use it to create personalized business letters, invitations to 
parties, etc. Our excuse for including it in the book was to show what 
a letter or response form is like and how easily it can be changed on a 
computer. 


DEAR PALLID, 

I'M VERY SORRY THAT I DON'T HAVE 
THE TIME. YOU SEE, MY 

BEST FRIEND LOST IT 

WHILE X PICKED FLEAS FROM HIS соат. 


GEE, I SURE AM SORRY. I WON'T LET 
IT HAPPEN AGAIN. Е PROMISE. 


SINCERELY, 
LIUID 


100 REM жиж EXCUSE GENERATOR «xx 

110 DIM A$ (50) , B$ (50) ,C$ (50) ,D$(50) ,E$ 
(50) , F$ (50) 

120 POKE 752,1:PRINT CHR$(125):POSITIO 
М 12,3:PRINT "EXCUSE GENERATOR" 

130 POSITION 2,4:PRINT "YOUR NAME: " 
INPUT AS:IF AS="" THEN A$-"ME" 

140 PRINT :PRINT “PERSON TO GET EXCUSE 
* “S$: INPUT BS:IF BS="" THEN B$z"TEACHE 
R" 
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150 PRINT :PRINT “ITEM TO BE EXCUSED: 

"ра INPUT C$:IF C$="" THEN C$="HOMEWORK 
160 PRINT CHR$(125):POSITION 2,3:PRINT 
“DEAR "$3B$;",":PRINT :PRINT "I'M VERY 
SORRY THAT I DON'T HAVE":PRINT 

170 PRINT "THE ";C$;". YOU SEE, MY":P 

RINT 

180 RESTORE 300:FOR T-O TO INT (RND (1) # 

7):READ D$:NEXT T:RESTORE 400:FOR Тео 

TO INT(RND(1)*7):READ Е%:МЕХТ T 

190 RESTORE 5ОО:ҒОК T=0 TO INT (RND (1) ж 

7):READ F$:NEXT T 

200 PRINT D$;" "3E$:PRINT :PRINT "WHIL 

E I "jF$; ". "PRINT :PRINT "GEE, I SURE 
AM SORRY. I WON'T LET" 

210 PRINT :PRINT "IT HAPPEN AGAIN. I 

PROMISE.":PRINT :PRINT :PRINT "SINCERE 

LY, ":PRINT :PRINT AS 

220 POKE 764,255 

230 IF PEEK(764)=255 THEN 230 

240 POKE 764,255:GOTO 120 

500 DATA DOG, DAD, BABY BROTHER, OLDER BR 

OTHER, CAT, BEST FRIEND, BOSS 

400 DATA ATE IT,USED IT FOR KINDLING,S 

LOBBERED ALL OVER IT,SHINED HIS SHOES 

WITH IT, TORE ІТ TO PIECES 

410 DATA STOLE IT,LOST IT 

SOO DATA PICKED FLEAS FROM HIS COAT,WA 

S ON A TRIP, CHANGED HIS DIAPERS, WASN* T 
WATCHING 

510 DATA WAS FEEDING НІМ CAT FOOD, STOO 
D BY HELPLESSLY,WAS ASLEEP 
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T. section contains several number games you may not have 
seen before as well as some conversion and sorting programs you can 
use for many different purposes. However, the first program in the 
section is a challenge that comes from Marlyn Burns, the author of 
the І Hate Math Book and Math for Smarty Pants. We translated her 
challenge into computer form. It can be fun to do similar things by 
taking books on mathematical games and recreations and giving 
those challenges a computer twist. Often, the computer can make the 
game more powerful because it can check challenges quickly, provide 
hints, tally scores, and set up timing devices. 
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The $1.00 Word Challenge 


Here is the challenge in Marlyn Burns’ own words: 


“Excellent” is a $1.00 word. Mathematically speaking, that is. So are 
“friendlier” and “grumpy” and "elephants" And so is “discipline,” which 
is what it takes to find more of these $1.00 wonders. To find out how 
much a word is worth, you give each letter a cent value: a=$.01, 
b=$.02, c=$.03, and so on up to z=$.26. Then you add the value of each 
letter in a word. 

Check for yourself to make sure the words given above really 
are worth exactly $1.00. Then you're on your own. How about starting 
with your first name? Is it worth $1.00? What about your friends’ 
names? Or the town or city you live in? 

The $1.00 word fever has been spreading throughout the United 
States. To date over 500 $1.00 words have been found by addition- 
loving kids across the country. Some have been writing $1.00 
sentences—sentences in which every word is worth $1.00. Some 
examples: “Prevent inflation.” “Whenever Henrietta whistled, thirty 
trembling costumed elephants merrily performed.” 

Of course, dedicated $1.00 word zealots have brought their 
computers into the search, programming them to calculate the value 
of whatever word they input. Try it. It takes all the drudge out of the 
search. 

Some hints may be useful for getting you started. There is one 
Halloween word that is worth $1.00 (Its not Halloween; that's only 
worth 5.95.) There's one Thanksgiving $1.00 word, as well as one 
astrological sign, and one United States coin. There are at least two 
United States cities—one of them in Wisconsin, and the other in both 
Oregon and Maine. To date, one five-letter $1.00 word has been found. 
No one, however, has submitted a word with four letters. (Is it possi- 
ble to have a four-letter word worth $1.00? 

There's a beverage that is illegal for minors to drink that’s worth 
$1.00, though it sometimes costs more than that to buy in restaurants 
and bars. There are several zoo animals that are $1.00 words, and at 
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least one underwater creature. Something that rarely strikes twice in 
the same place, so they say, is also a $1.00 word. And there is a 


number that is less than 100 that is worth $1.00 when written as a 
word. 


This program will check to see if your words are $1.00 words. If 
your word doesn't quite make a dollar, the program will also tell you 
how much it is worth using the coding system where A is a penny, B 
two cents, etc. 


100 REM ### ONE-DOLLAR WORDS ww 

110 DIM A$(20) : GRAPHICS O:POKE 792,1 

120 PRINT CHR$(125):POSITION 7, 5: PRINT 
"THE ONE-DOLLAR WORD MACHINE" 

150 PRINT :PRINT :PRINT "PLEASE ENTER 

YOUR WORD..."5 

140 INPUT A$:IF A$-"" THEN 130 

150 V-O:FOR T-1 TO LEN(4$):IF AS(T,T)< 

"A" DR AS(T,T)>"Z" THEN 130 

160 V=V+ASC (А$ (T, T) ) -64: NEXT T:PRINT : 

IF V=100 THEN PRINT A$;" IS A ONE DOLL 

AR WORD!":GOTO 130 


170 PRINT A$$" IS WORTH “3V3" CENTS.": 
GOTO 130 


If you want to make a $2.00 word machine or a half-dollar word 
machine, all you have to do is change the IF-THEN and PRINT com- 
mands on line 160. Thus, the following changes in line 160 will give а 
Fifty Cents Word Machine: 


160 V=V+ASC(A$(T,T))-64:NEXT T:PRINT:IF V=50 THEN PRINT 
A$:" IS A FIFTY CENT WORD!":GOTO 130 
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Division Homeworker 


Did you ever get frustrated when you were asked to “show the work’ 
when you were doing math homework? After all, a calculator or com- 
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puter could do the work. Why bother with the tediousness of long 
division anymore? There is even a rumor that long division is a device 
created by teachers to torture their students with boredom. We've 
come up with a solution to the long division nightmare. Here is a 
program that not merely gives you the answer to a long division 
problem, remainder and all, but also “shows the work.” We hope it will 
save you hours of boredom that could be used in more productive and 
pleasurable activity. 

The program has another value. It will take you step by step 
through long division problems and can be a useful way to learn the 
process. 


DIVIDEND: 725456 
DIVISOR: 734 


100 КЕМ www DIVISION HOMENORKER www 
110 DIM М%(9),8%(9),17%(9):Х-24:Ү-4 

120 TRAP 120:POKE 752,1:PRINT CHR$(125 
):PRINT " DIVISION":PRINT "HOMEWORKER" 
e POSITION 2,18:PRINT "DIVIDEND: "3 

150 INPUT М: AS=STRS$(N):POSITION 3,20:P 
RINT "DIVISOR: "3: INPUT D:IF D>N OR D= 
О OR N>999999 THEN 120 

140 POSITION X,Y:PRINT CHR (124) ; CHRS ( 
30) ; CHR$ (28) $ CHR$ (17); 

150 FOR T=1 TO LEN(A$):PRINT CHR$(18); 
NEXT T:POSITION X-LEN(STR$ (D)), Y: PRIN 
T D:POSITION X+1,Y:PRINT N:GOSUB 500 
160 NS-1:QP-0:BPZzO:FFzO:N$-4$(1,1) 

170 NT=VAL (N$ (1, NS)):IF NT>=D THEN 210 
180 QP=QP+1:IF FF=1 THEN POSITION ХЧОР 
Ү-2:РКІМТ "O":GOSUB 500 

190 NS=NS+1: IF NS>LEN(A$) THEN R=NT:GO 
TO 600 
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200 N$z24$(1,NS):POSITION 2+X+QP-LEN (N$ 
),Y*BP:PRINT N$:GOTO 170 

210 FFz1:GQT-INT (NT/D) : RZNT-D&GQT : QP-QP 
1:POSITION Х-ОР,Ү-2:РКІМТ OT:GOSUB 500 
220 T=1+X+OP-LEN(STRS (CDXQTO) ) : POSITION 

T, Y+BP+1:PRINT D«*GT:GOSUB 500 

250 POSITION T,Y+BP+2:FOR T=1 TO LEN(S 
TRS (D#QT)) SPRINT СНКФ (18); : МЕХТ Т 

240 POSITION 1+X+DP-LEN(STR$ (R) ) , Y+BP+ 
5:РКІМТ R:GOSUB 500 

250 IF NS-LEN(A$) THEN 600 

260 T$-STR$ (К) : ТФ (LEN (TS) +1) =AS (NS+1,N 
S+1) : POSITION 1+X+QP-LEN (STR$ (R) ) , Y+BP 
*S:PRINT T$:N$-T$:GOSUB 500 

270 TS$zSTR$ (К) : TS (LEN (TS) +1) =AS (NS*1,L. 
EN (AS) ) : AS=T$: NS=LEN (N$) : BP=BP+3: GOTO 

170 

500 POKE 764,255:FOR K=1 TO 50: МЕХТ K 

510 IF PEEK(764)=255 THEN 510 

520 POKE 764, 255: RETURN 

600 POSITION X+@P+2,Y-2:PRINT "r "sR:6 
OSUB 500:60Т0 120 
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Kabala Name Game 


According to the Kabala, a mystical Jewish treatise about the rela- 
tionship between numbers, letters, and things spiritual, every word 
has a numerical value which determines its sacredness and quality. 
This is especially true for names. We've turned the name/number 
equivalence into a game. Each letter of the alphabet is given a value 
from | to 26, A being 1 and Z 26. The names displayed in the game 
have a total value which consists of the sum of the values of their 
letters. Thus, Abe has a value of 1+2+5=8. (Can you think of a name 
with a lower value than Abe!) 

The game works in the following way: A name is displayed on 
the top of the screen and below it four other names are displayed. You 
have to figure out which one of the four has the same value as the 
first name displayed. 
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There is a strategy you might use to help you eliminate some 
names immediately. Look at the original name and see how many of 
its letters are skewed toward the front of the alphabet, how many are 
in the middle, and how many at the end. That should give you an idea 
of whether the value of the whole will be low, medium, or high. For 
example, it is clear that Abe will have a low value and Val a much 
higher one. With this first take, you can scan all the names and 
eliminate those whose values clearly dont match up. 


100 REM жиж KABALA NAME GAHE жин 

110 DIM A$(10),T$(10) ,K$(40),P(2),M(3) 
[OPEN #1, 4, O, "K: ": GRAPHICS O 

200 РОКЕ 752,1:? CHR$(125):POSITION 10 
,2:? "THE KABALA NAME GAME":K$(1)z" ": 

K$(40)z" ":K$(2)-K$:Kz1:FOR T=O TO 1 

210 FOR Ј=0 TO 12:POSITION 44T*6,64J:7 
СНКФ (644K) ; "=" К:К=К+1: МЕХТ J:NEXT T 

220 R=INT (RND (1) #20) zx R1-INT (RND (1) #4) 

230 R2=INT(RND(1)#4):IF R2-R1 THEN 230 

240 RESTORE 500+R:FOR T-O TO Ri:READ T 

$:NEXT T:POSITION 25,6:? T$ 

250 RESTORE 500+R:FOR TzO TO R2:READ A 

$:NEXT T:K$(31,40)=A$:FOR T-O TO 2 

260 P(T)=INT(RND(1)#20):FOR Ј=0 TO 2:1 

F (P(T)=P(J) AND T<>J) OR P(T)=R THEN 

260 

270 NEXT J:RESTORE 500+P(T):FOR J=0 TO 
INT(RND(1)*4):READ T$:NEXT J:K$(T*1O+ 
1,T*10*10)-T$:NEXT T:FOR T=0 ТО 3 

280 M(T)=4:NEXT T:FOR T=0 TO 3 

290 MzINT(RND(1)*4):IF M(M)<4 THEN 290 

ЗОО M(M)=TIIF T=3 THEN P=M 

310 NEXT T:FOR Т=0 ТО 3:POSITION 21,10 

+T#2:PRINT T+is". "3KS(M(T) #1041,M(T) и 
10410): МЕХТ T:POKE 764,255 

320 GET #1,K:K=K-49:IF K<O OR K»3 THEN 
320 

530 POSITION 19,10+K#2:? "4":POSITION 

24,10+P#2:FOR J=1 TO LEN(A$):? CHRS (12 

B-ASC(A$ (J,J))) s: NEXT J 

340 IF K<>P THEN FOR T2200 TO 250: SOUN 

D 0,7,10,10:МЕХТ T:SOUND 0,0,0,0 

350 IF K=P THEN FOR T=20 TO O STEP -1: 

SOUND O,T,10,10:S0UND 1,20-Т,10,10:МЕХ 

T T:SOUND 0,0,0,0:S0UND 1,0,0,0:X=X+1 

360 YzY41:POSITION 7,20:? "YOU'VE GOTT 

EN "3X3" OUT OF "Үр" "ІБ Y<10 THEN F 

OR T=1 TO 1000:NEXT T:GOTO 200 

370 POSITION 7,22:? "PRESS START TO PL 
AY AGAIN" 
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380 IF PEEK(53279)<>6 THEN 380 
390 RUN 

500 DATA EDDIE, ADELE, JAKE, DICK 
501 DATA DIANA, TED, ANN, GAIL 

502 DATA DEBRA, JANE, JOE, ALICE 

505 DATA JIM, DAVE, NEAL, LEO 

504 DATA DIANE, SAM, MABEL, FRED 

505 DATA BILL, BETH, HEIDI, ERIC 

506 DATA KATE, PAT, NICK, GREG 

507 DATA DAVID, JOAN, NEIL,LINDA 
508 DATA MARIA, JANICE, TIM, ALEX 
509 DATA ANDY, RAY, HELEN, TINA 

510 DATA DANIEL, SUE, PHIL, CLARK 
511 DATA BECKY, PETE, BOBBY, KATIE 
512 DATA RON, SARAH, JOHN, DOUG 

513 DATA IRENE, PAULA, GARY, FREDDIE 
514 DATA CATHY, GEORGE, MARY, NANCY 
515 DATA ALBERT, DANNY, PEDRO, JESSE 
516 DATA CHARLES, RUBY, MANUEL, MICKEY 
517 DATA VICKY, HARRY, HENRY, SIMON 
518 DATA TONY, SUSAN, PENNY, JOSHUA 
519 DATA JEREMY, THOMAS, JERRY, HERBERT 


Here аге the data statements for the game. We've made lists of 
names of equivalent number value. You add or subtract names so long 
as all the names on a given line have the same value. You can also 
replace a line of your own with animal names or plant names and 
change the nature of the game that way. Just be sure to change the 
PRINT commands and check the numerical values of your words. 


500 DATA EDDIE, ADELE, JAKE, DICK 

501 DATA DIANA, TED, ANN, GAIL 

502 DATA DEBRA, JANE, JOE, ALICE 

505 DATA JIM, DAVE, NEAL, LEO 

504 DATA DIANE, SAM, MABEL, FRED 

505 DATA BILL, BETH, HEIDI, ERIC 

506 DATA КАТЕ, РАТ, NICK, GREG 

SO7 DATA DAVID, JOAN, NEIL,LINDA 

508 DATA MARIA, JANICE, TIM, ALEX 

509 DATA ANDY, RAY, HELEN, TINA 

S10 DATA DANIEL, SUE, PHIL, CLARK 

511 DATA BECKY, PETE, BOBBY, KATIE 

512 DATA RON, SARAH, JOHN, DOUG 

513 DATA IRENE, PAULA, GARY, FREDDIE 
514 DATA CATHY, GEORGE, MARY, NANCY 
515 DATA ALBERT, DANNY, PEDRO, JESSE 
516 DATA CHARLES, RUBY, MANUEL, MICKEY 
517 DATA VICKY,HARRY, HENRY, SIMON 
518 DATA TONY, SUSAN, PENNY, JOSHUA 
519 DATA JEREMY, THOMAS, JERRY, HERBERT 
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Pitch and Toss 


This game is thoroughly determined by chance. 


Games of chance exist everywhere in the world. Often they are asso- 
ciated with predicting the future or making important decisions 
when there are no reasons to choose one way of acting over another. 
They also are good gambling games since every player is supposed to 
have an equal chance of winning. In our society, the most familiar 
chance games involve dice, playing cards, and spinners like the 
roulette wheel. In other parts of the world, different devices are used. 
For example, throughout the African continent cowrie shells, nuts, 
and elaborately carved wood tokens are commonly used in chance 


games. The characteristic of these devices is that they have two sides 
like our coins. A number of them are cast and scores are made accord- 
ing to which faces show up. 

For example, there is a game played by the Igbo of Nigeria which 
consists of casting four cowrie shells which can fall back up or open 
side up. 


The best scores are four backs up or four backs down. 
There are 16 possibilities when tossing the four cowries: (U = 
back цр, D = back down!) 


UUUU UUDD  DDUU 
UUUD UDUD UDDD 
UUDU UDDU DUDD 
UDUU DUUD DDUD 
DUUU DUDU DDDU 

DDDD 


Since the cowries can be considered to look alike, these possibil- 
ities can be simplified in the following way: 


4 up 0 down — | way 
3 up 1 down — 4 ways 
2 up 2 down — 6 ways 
1 up 3 down — 4 ways 
O up 4 down — 1 way 


Because of this, the following scoring system could be used for 
the game, giving fewer points to the arrangement most likely to 
happen, and more points to the rarer combinations. 

4 up or 4 down 4 points 


] up 3 down 2, points 


З up 1 down 2, points 
2 up 2 down 1 point 


Try the game with cowries, walnuts, or pennies. It is as interesting as 
playing dice and provides more awareness of arrays of figures and 
scoring combinations. 

This game is a computer version of the cowrie game. The com- 
puter will throw five cowries onto the playing board. One side of the 
cowrie will be represented by X and the other side as O. You have to 
guess how many X's will come up on your toss. The game is for two 
people and both players guess on each throw. The scoring is as fol- 
lows: If you guess correctly you get points equal to the number of X's 
that you predicted would come up. If your partner guesses correctly, 
you lose points equal to the number of your guess. If neither of you 
guess correctly there is no score and you go on to the next round. 


2nd Player АЖ 
мом 3 


Sees 
PRESS KEY 
Player... How many H's C€@-53 4 


Player... How many K's c@-53 * 


100 КЕМ www PITCH AND TOSS ww 

110 GRAPHICS О:РОКЕ 752,1:POKE 82,10:P 

RINT :PRINT "ОХОХОХОХОХОХОХОХОХОХ" 

120 PRINT "X PITCH AND TOSS 0":РКІМТ 
"OXOXOXOXOXOXOXOXOXQX" : OPEN #1,4,0, "К 

:":281210:82-10: GOSUB 600:GOSUB 700 

200 POSITION 2,20:PRINT "ist Player... 
How many X's (0-5) ";:GOSUB 400 

210 PRINT K:G1zK:POSITION 2,22:PRINT ~ 

2nd Player... How many X's (0-5) "; 

220 BOSUB 400:IF K=G1 THEN 220 

230 PRINT K:G2-K 
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240 C-O:FÜR Т=0 TO 4:X=INT (RND (1) #5) =P 

=INT (RND (1) #2) :POSITION 17+X, 11+T:PRIN 

T CHR$(79*9*P):IF P THEN C=C+1 

250 NEXT T:IF C=Gi THEN 51=51+61:52=52 

-B2:POSITION 5,7:PRINT "WON ";G1:POSIT 

ION 26,7:PRINT "LOST "3:62 

260 IF C-82 THEN S2=$2+62:51=$1-G1:POS 

ITION 6,7:PRINT "LOST "s:G1:POSITION 26 

;,7:PRINT “WON "$62 ` 

270 GOSUB 600:1F Si«1 OR S2«1 THEN POS 

ITION 15,18:PRINT "GAME.OVER":PRINT CH 

R$(253):GOSUB B10:RUN ` 

280 GOSUB 800:FOR T-1 TO 3:POSITION 2, 

20:PRINT CHR$(156):NEXT T:GOSUB 700: 6O 

TO 200 

400 GET #1,K:K=K-48:IF K<O OR K»5 THEN 

400 

410 RETURN 

600 POSITION 2,5:PRINT “ist Player "; 

51%" ":POSITION 22,5:PRINT "2nd Player 
"3825" “RETURN 

700 POKE 82,15:POSITION 15,9:PRINT "## 


HEHEHE" SPRINT "МИ ##":2FOR T=1 TO 
З:РКІМТ "и #": NEXT T 

710 PRINT "i HE" SPRINT "HHHHHHH HH 
" : RETURN 


800 POSITION 15,18:PRINT "PRESS KEY" 
810 POKE 764,255 

820 IF PEEK(764) 2255 THEN 820 

830 POKE 764,255:POSITION 15,18:PRINT 
a "SPOSITION 6,7:PRINT " 
"SPOSITION 26,7:PRINT “ "¿RETURN 
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Date to WeeRday 


This is a conversion program. You can enter any date—past, present, 
or future—and this program will tel] you which day of the week it 
happened to be. Leap years are also indicated. Using this program, you 
can find out the day you and your friends and family were born. You 
can find out the days Napoleon, Emma Goldman, and Julius Caesar 
were born. You can find out what day Christmas will fall on in 2100 


or what day it fell on in 1166. 
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100 REM we DATE TO WEEKDAY «xx 

110 DIM D$(9),M$(9) 

120 POKE 752,1:PRINT CHRS$ (125) :POSITIO 

М 9,3:PRINT "DATE TO DAY CONVERSIQN":P 

OSITION 2,6:PRINT "MONTH (1-12) "j; 

150 INPUT M:PRINT :PRINT "DAY (1-31) 
"5: INPUT D:PRINT 

140 PRINT "YEAR (0- 2  "s:INPUT Y:PR 

INT :PRINT 

200 YH=INT(Y/28) : YL=Y-YH#28: RESTORE 30 

O:FOR T=O TO YL:READ YK:NEXT T 

210 LP=O:IF INT(Y/4)-Y/4 THEN LP=1 

220 NZO:KzO:RESTORE 400:FOR Т-і TO M:N 

=N+K: READ K:NEXT T:N=N+D-1+YK:IF M>2 T 

HEN N=N+LP 

230 NzN-7*INT (N/7) 

240 RESTORE 5ОО:ҒОК T=0 TO N:READ D$:N 

EXT T 

250 RESTORE 600:FOR T-1 TO M:READ M$:N 

EXT T:PRINT M$;" ";D;", "үз" WAS A "3 

D$; "ou 

260 IF LP THEN PRINT :PRINT Ys" WAS A 

LEAP YEAR. " 

270 POSITION 14,20:PRINT "PRESS START" 

280 IF PEEK(53279)<>& THEN 280 

290 POKE 764, 255: GOTO 120 

ЗОО DATA 4,6,0,1,2,4,5,6,0,2,3,4,5,0,1 

2,5,5,6,0,1,5,4,5,6,1,2,5 

400 DATA 31,28,31,30,31,30,31,31,30, 31 

‚50,51 

500 DATA MONDAY, TUESDAY, WEDNESDAY, THUR 

SDAY, FRIDAY, SATURDAY, SUNDAY 

00 DATA JANUARY, FEBRUARY, MARCH, APRIL, 

MAY, JUNE, JULY, AUGUST, SEPTEMBER, OCTOBER 

» NOVEMBER, DECEMBER 
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President Precedence 


For multiple choice fans, here’s a challenge to test your knowledge of 
the Presidential terms of office. A date appears at the top of the 
screen. The names of three Presidents appear by the numbers one, 
two, and three. Press a number on the keyboard to match the correct 


President with his term. 
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100 КЕМ жж PRESIDENT PRECEDENCE жж 
110 DIM T#(30) s МФ (1200) , Y$ (560), P(2),M 
(2) ОРЕМ #1,4, О, "K:":N$(1)=" " „МФ (1200 
=" ":N$ (2) =N$: YS=NS: FOR TzO TO 39 
120 READ TS$:N$(1+T#30, 30+T#30) -T$: READ 
T$: Y$(14T&*9 ,9%Тж9) <Т%:МЕХТ Т 
150 P (O) «ІМТІРМО(1) X40) : P (1) INT (RND (1 
) #40) £P (2) SINT (RND C12 #40) : IF P(1)=P (0) 
OR P(2)=P(0) OR P(2)=P(1) THEN 150 
140 РОКЕ 752,1:PRINT CHR$(125):POSITIO 
N 10,3:7 “PRESIDENT PRECEDENCE": POSITI 
ОМ 15,627 Y$(1+P (O) #9, +P (O) #9) 
150 FOR Тео TO 2: MOD 23: NEXT T:POSITIO 
М 2,10:FOR Т-О TO 2:R-INT(RND(10*3):IF 
M(R)<3 THEN Т-Т-1:МЕХТ T 
160 M(R)=T:NEXT T:FOR Тео ТО 2:K=P(M(T 
J) PRINT T+i;". "SNS (1+K*ZO, 30+K#30) = № 
EXT T 
170 GET %1,К:ІҒ K<49 OR К>51 THEN 170 
180 IF M(K-49)<>0 THEN 170 
190 POSITION 16,18:PRINT "CORRECT":FOR 
T-1 TO SOO:NEXT T:GOTO 130 
500 DATA George Washington, 1789-1797, J 
ohn Adams, 1797-1801, Thomas Jefferson, 1 
801-1809, James Madison, 1809-1817 
210 DATA James Monroe, 1817-1825, John Q 
uincy Adams, 1825-1829, Andrew Jackson, 1 
829-1837,Martin Van Buren, 1837-1841 
520 DATA William Henry Harrison, 1841-1 
841,John Tyler,1841- -1845, James K. Polk 
„1845-1849, Zachary Taylor, 1849-1850 
550 DATA Millard Fillmore, 1850-1853, Fr 
anklin Pierce, 1853-1857, James Buchanan 
‚ 1857-1861, Abraham Lincoln, 1861-1865 
540 DATA Andrew Johnson, 1865-18469, Ulys 
ses S. Grant, 1869-1877, Rutherford B. H 
ayes, 1877-1881, James A. Garfield 
550 DATA 1881- -1881, Chester A. Arthur,i 
881-1885, Grover Cleveland (1), 1885-188 
9 , Benjamin Harrison, 1889-1893 
560 DATA Grover Cleveland (2), 1893-189 
7,William McKinley, 1897-1901, Theodore 
Roosevelt, 1901-1909,William H. Taft 
570 DATA 1909-1913, Woodrow Wilson,1913 
-1921,Warren б. Harding, 1921- 1923,Calv 
in Cool idge, 1923-1929 
380 DATA Herbert C. Hoover, 1929-1933,F 
ranklin D. Roosevelt, 1933-1945, Harry S 
. Truman, 1945-1953 
590 DATA Dwight D. Eisenhower, 1953-196 
1,John F. Kennedy, 1961- 1963, i-undon B. 
Johnson, 1963-1969, Richard M. Nixon 
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600 DATA 1969-1974,Gerald R. Ford,1974 
-1977, Jimmy Carter, 1977-1981,Ronald Re 
agan, 1981-27??? 


This program can be modified to match events to dates. For 
example, in the data lines from 500 to 600 you can put the name of a 
battle with its dates or the name of a great invention with the date it 
was invented. As long as you do not change the structure of the data 
and keep to associating a name with a number you will be able to 
modify this program and make up your own multiple choice quizzes. 
There is one thing to be careful about, however. On line 120, the 
program is set up to deal with 40 data inputs (FOR T=0 to 39) and on 
line 130 to deal with the length of your DATA statement. If you keep 
to the same number of items and same length of items in the program 
youll have no trouble. If not, you should change the parameters on 
lines 120 and 130. 
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I... Quotient (10) implies that there is some objective 
measure of how smart people are. An IQ of 100 is supposed to be 
normal, 140 brilliant, and 75 slow. However, no one knows how accu- 
rate even the most sophisticated tests are. Your IQ has to do with how 
you perform on the tests you take and not with how intelligently you 
function with others and at your work. 

Since the measure of IC) is so test-bound, your score can be 
changed if you practice the skills that the test designers have chosen 
as epitomizing the essence of "intelligence." Usually, these skills have 
to do with memorizing lists, figuring out sequences, estimating 
answers quickly, and knowing how to manipulate strings of symbols. 
This Part provides a number of games and exercises that hone these 
skills. Of course, there is no guarantee that your IQ will be raised by 
playing them but there is a chance that, if you master these modes of 
thinking, you will find it easier to deal with the challenges of IQ tests. 
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Gestalt 


The word Gestalt refers to a perceptual whole. When we look at a 
chair or table we do not see its individual parts and then conclude 
that they go together to make a chair or table. We see the chair or 
table as an integrated whole or Gestalt. A Gestalt problem that 
English philosophers debated about 30 years ago led to this computer 
program. The problem was usually phrased this way: 


You are looking at a field of sheep. Exactly how many sheep do you 
see? If a sheep were added or subtracted would you see any more or 
fewer sheep? 


If you do not stop to count the sheep, it would be accurate to say that 
you saw a whole bunch of sheep, not a particular number of sheep. 
You could, however, estimate the number of sheep and, if you had a 
great deal of experience with sheep, could get more and more accu- 
rate. Estimation even within the context of an initially disordered 
Gestalt can be refined and improved. This program gives you an 
opportunity to guess at the number of dots on your computer screen 
without counting them. The computer will tell you how close your 
guess is and then give you another series of dots to guess about. This 
kind of estimation is related to IQ tests in that the ability to estimate 
the probability of an answer makes it possible to eliminate the least 
likely choices of a multiple choice question and, therefore, gives you 
more time to work on problems. 

The program also helps you concentrate on responding to your 
perceptions and refining them. It is practice in looking at and inter- 
preting what you see. 


100 REM *** GESTALT ww 

110 GRAPHICS O:POKE 752,1:PRINT : PRINT 
“THIS IS AN ESTIMATION GAME.":PRINT 

120 PRINT "YOU WILL SEE DOTS FLASH ON 

THE SCREEN": PRINT 

140 PRINT :PRINT "DO NOT TRY TO COUNT 

THE DOTS!'":PRINT :PRINT 


35 


150 PRINT “THE COMPUTER WILL TELL YOU 


HOW CLOSE":PRINT 


AFTER A WHI 


'YOUR GUESS IS. 


160 PRINT 
LE YOU":PRINT 


'SHOULD GET BETTER AT ESTIMA 


170 PRINT 


PRINT "NUMBER. " 
'PRESS SPACEBAR TO BE 


TING THEIR":PRINT 
180 PRINT :PRINT 


GIN" 


190 IF РЕЕК (764) <>35 THEN 190 


200 POKE 764,255 


COLOR 1 


GRAPHICS 3 


210 LET Q=INT (RND (1) #25) 


=1 TO G 


220 FOR Z 


INT (RND (1) *40) 


250 LET X 


INT (RND (1) #20) 


240 LET Y 


Y 


250 PLOT X 


260 NEXT Z 
270 PRINT 


гу 


WHAT IS YOUR GUESS 


280 INPUT S 


290 ТЕ 5 


“YOU GOT IT 


GOTO 110 


=Q THEN PRINT 


GOTO 


NEXT T 


“YOU ARE 


:МЕХТ Т 
FOR Т-1 TO 1500 


1 TO 1500 
500 IF S<@ THEN PRINT 


TOO LOW 


110 


RT 
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210 LET Q-INT(RND(1)*25) 


For example, if you change the 25 at the end of the line to 5, you'll get 
a maximum of 5 dots and if you change it to 10 you'll get a maximum 
of 10. 

If you want to slow the program down, you can put a pause loop 
such as 


FOR X=1 TO 500:NEXT X 


into the program after you plot the points (line 250). This line could 
be numbered 255 so it would come after the plot command and yet 


remain within the loop. 


Hash Line 


Flash Line is a length estimating program. It flashes two lines on the 
screen and asks you which one is longer. If you get the correct answer, 
it gives you another set of lines. If you get it wrong, it gives you 
another chance. Most of the challenges of this program are easy to 
answer once you get the rhythm of looking and inputting your 
answer. However, the game can be speeded up by changing the pause 
loops at lines 170 and 210. You can also change the length of the lines 
by reducing 160 in lines 110 and 120. When you reduce the size of the 
line the game gets more complex because the sizes of the lines don't 
vary as much. 

Notice that line 130 eliminates the possibility of the computer 
displaying two equal lines. The routine of which this is a part can be 
very useful when you want to develop games that generate unequal 
quantities. Here is that routine: 


110 LET X=INT(RND(1)*160) 
120 LET Y=INT(RND(1)*160) 
130 IF X=Y THEN GOTO 110 
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In effect, line 130 returns the program to line 110 if X and Y are the 
same; then new random numbers are chosen. 


100 REM *** FLASH LINE www 

110 LET X=INT(RND(1) #160) 

120 LET Y=INT (RND (1) #1460) 

130 IF X=Y THEN GOTO 110 

140 GRAPHICS 7:COLOR 1 

150 GOSUB 600 

160 PLOT 0,30: DRAWTO X, 30 

170 FOR A=1 TO 300:NEXT A 

180 GRAPHICS 7 

190 GOSUB 600 

200 PLOT 0,60: DRAWTO Y, 50 

210 FOR B=1 TO 300:NEXT В 

220 GRAPHICS О 

230 GOSUB 600 

240 PRINT "TYPE 1 OR 2 " 

250 INPUT Z 

260 IF Zz1 THEN GOTO 400 

270 IF Z=2 THEN GOTO 500 

400 IF X»Y THEN PRINT "RIGHT. HERE'S 
ANOTHER ONE.":FOR C-1 TO 500: МЕХТ C:GO 
TO 110 

410 IF Y>X THEN PRINT "TAKE ANOTHER LO 
OK.":FOR C=1 ТО 500:NEXT C:GOTO 140 
ЗОО IF Y>X THEN PRINT "RIGHT. HERE'S 
ANOTHER ONE.":FOR C-1 TO SOO:NEXT C:GO 
TO 110 

510 IF X»Y THEN PRINT "TAKE ANOTHER LO 
OK.":FOR С=1 TO 500:NEXT C:GOTO 140 
600 PRINT "WHICH LINE IS LONGER, THE 1s 
t OR 2nd?":RETURN 
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Did. You See It? 


Here is a third estimating game. This uses the Atari Graphics 2 mode 
to print big stars. The program moves the stars around the screen in a 
random way using the POSITION statement. An interesting percep- 
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tual experiment would be to see whether substituting other symbols 
for * changes the difficulty of the challenge. For example at line 180: 


180 POSITION X,Y:PRINT #6;"*” 


ип 


try to change the “* to °?” or “m” ог “$” ог any other symbol and see 
whether the nature of the challenge changes. 


100 REM ### DID YOU SEE IT? жжж 

110 GRAPHICS 2:COLOR 1 

120 POKE 752,1:PRINT 

130 S=INT(RND(1) #10) +1 

140 PRINT CHR$(125):PRINT “HOW MANY ST 
ARS DO YOU SEE?" 

150 FOR M=1 TO SOO:NEXT M 

160 FOR W=1 ТО 5 

170 X=INT(RND (1) #20) : Y=INT (RND (1) #10) 
180 POSITION X,Y:PRINT #6; "и" 

190 FOR R=1 TO 75:NEXT R 

200 POSITION X,Y:PRINT #6;" " 

210 NEXT W 

220 INPUT G 

250 IF G=S THEN PRINT "YOU GOT IT'";FD 
R M=1 TO 500:NEXT M:GOTO 130 

240 IF G<>S THEN PRINT "TRY AGAIN.":FO 
R M=1 ТО 500:МЕХТ M:GOTO 140 
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Memory Muscle Builder 


This challenge begins by showing you two digits to memorize. If you 
can type them in correctly you will then be shown three digits and so 
on until your mind is overcome with numbers. When you finally 
miss you will be assigned one of the 15 ranks of memory power we 
have built into the program. Repeating number sequences occur on a 
number of individually administered IQ tests and, with some training, 
you can become a memory master. The memorization of sequences is 
also a good exercise in the development of concentration. 
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100 REM ж MEMORY MUSCLE BUILDER ж 

110 DIM А(15),Т% (50) : ОРЕМ #1,4,0,"K:": 
№1 

120 GRAPHICS O:POKE 752, 1:РОЅІТІОМ 7,2 
:PRINT "и MEMORY MUSCLE BUILDER s" 

130 POSITION 2,6:PRINT "WATCH CAREFULL 

Y...":FOR T=1 TO 150:NEXT T 

140 POSITION 2,8:FOR T-O TO N:A(TD -INT 
(RND(1)#10)2PRINT АСТ)“ ";:NEXT Т: РОВ 
Т=1 TO 100+N#300:NEXT T 

150 POSITION 2,8:FOR Т=0 TO N:PRINT "? 
"S:NEXT T 

160 POSITION 2,10:PRINT "NOW, ENTER TH 

E NUMBERS YOU SAW":POSITION 2,12 

170 FOR T=O TO М 

180 GET %1,К:К-к-48 

190 IF КСО OR K>9 THEN 180 

200 PRINT Кју" ";:1F K<>A(T) THEN 300 

210 NEXT T:POSITION 2,14:PRINT "WOW, W 

HAT A MEMORY!":N=N+1:IF N=16 THEN 400 

220 FOR T=1 TO 750:NEXT T:GOTO 120 

300 POSITION 2,14:PRINT "OOPS! THE NU 

MBERS WERE..." 

310 POSITION 2,16:FOR T-O TO N:PRINT A 
(T) 5$" "S:NEXT T 

320 RESTORE 500+N-1:READ T$:POSITION 2 
,18:PRINT "YOUR RANK: "s; T$:FOR T=1 TO 
2000:NEXT T:RUN 

400 POSITION 2,16:PRINT "INCREDIBLE! 

YOU MUST BE A COMPUTER! ":PRINT :END 

500 DATA NOVICE CLASS 2 

501 DATA NOVICE CLASS 1 

502 DATA INITIATE CLASS 2 

503 DATA INITIATE CLASS 1 

504 DATA AVERAGE CLASS 2 

505 DATA AVERAGE CLASS 1 

506 DATA MEMORY WHIZ CLASS 2 

507 DATA MEMORY WHIZ CLASS 1 

508 DATA MASTER CLASS 2 

509 DATA MASTER CLASS 1 

510 DATA MEMORY MASTER CLASS 2 

511 DATA MEMORY MASTER CLASS 1 

512 DATA GRANDMASTER 

513 DATA PRODIGY 

514 DATA GENIUS 


If you look carefully at this program you will see that the varia- 
ble N indicates how many numbers you guessed correctly and at line 
320, is used to assign you a rank. The assignment of ranks depends 
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upon a READ...DATA... command in which each rank becomes a 
single data statement as listed below: 


500 DATA NOVICE CLASS 2 

501 DATA NOVICE CLASS 1 

502 DATA INITIATE CLASS 2 

505 DATA INITIATE CLASS 1 

504 DATA AVERAGE CLASS 2 

505 DATA AVERAGE CLASS 1 

506 DATA MEMORY WHIZ CLASS 2 
507 DATA MEMORY WHIZ CLASS 1 
508 DATA MASTER CLASS 2 

509 DATA MASTER CLASS 1 

510 DATA MEMORY MASTER CLASS 2 
511 DATA MEMORY MASTER CLASS 1 
512 DATA GRANDMASTER 

515 DATA PRODIGY 

314 DATA GENIUS 


If you want to create your own ranks, all you have to do is list the 
program and change the data lines to any titles you choose. If you 
want to create a subroutine in another program that uses a ranking 
system, all you have to do is adapt lines 320 to 514 for your own 
purposes. 
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Mug Shot 


Mug Shot is a different kind of memory game. Mug shots are face 
photos that victims of crime are given in order to identify criminals. 
In this program, the computer creates a face for you to look at fora 
while and then clears the screen and challenges you to recreate the 
face from a choice of eyes, noses, and mouths. After you think you 
have successfully reconstructed the face, the computer shows you the 
original face next to your reconstruction. This program provides a 
deceptively complex challenge and gives a sense of how hard it is to 
reconstruct a face from memory. You can study this program and add 
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a number of other features to the face. For example, you can put on 
eyebrows or hair, or even make a whole series of different shaped 
faces (oval, round, squarish, etc.) 

This program uses CONTROL Graphics in Graphics 0 to create 
the faces. It, therefore, doesn't use DRAWTO or PLOT statements. 
Instead of printing out each CONTROL character, it uses the 
CHR$(X) function which uses the ASCII numbers for each symbol on 
your Atari keyboard. Consult Appendix C of your ATARI BASIC 
Reference Manual for a chart of ASCII numbers. 
| Here is а simple way to understand how CHR$(X} and the ASCH 
codes for graphics characters work. You'll notice on the chart that 
the triangle that is printed on the screen by typing in [CTRL]H] has 


the ASCII number 136. You can have your computer print this char- 
acter in two ways: 


PRINT [CTRL][H] 


Or 
PRINT CHR$(136) 
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Also, as an 
ing CHR$ 


he program us 


in t 


ing the ASCII chart 


try to draw one of the faces 


statements. 
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If you look at the Mug Shot program you will find many uses for 
exercise 


CHR$ that you can understand by us 


Hi 
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MLUGSHOT MEMORY TEST 
MUGSHOT MEMORY TEST 


MUGSHOT MEMORY TEST 
DO YOU RECOGNIZE THE NOSE 


REMEMBER THIS MAN'S FACE 
SORRY, 


.-.. 
... жалаға» 
aerei 
212121 
E 
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74... 
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100 REM жғж HUG SHOTS ww 

110 GRAPHICS O:POKE 752, 1: PRINT 

120 DIM 6% (54), К%(5), A(2), В(2),М(2),М% 
(3):FOR T=1 то” 54: READ K: 6% (T, T) =CHRS ( 
K) NEXT Т: OPEN #1, 4,0,"K:" 

200 PRINT CHR$ (125): POSITION 10,2: PRIN 
T “MUGSHOT MEMORY TEST" 

210 GOSUB 600: 605ЏВ 410:FOR T=0 TO 2:A 
(Т) =ІМТ (КМО (1) +5) :МЕХТ T:GOSUB 500 
220 POSITION 6, 12:7 "REMEMBER THIS MAN 
"5 FACE.... "FOR T=1 ТО 750: МЕХТ T:GOS 
UB 610: GOSUB 700:FOR Тео ТО 2:Z=M(T) 
250 POSITION 2,16:? “OKAY, DO YOU RECO 

GNIZE THE "; : RESTORE 89042: READ K$:? K 
$3"? “FOR 220 ТО 2: РОКЕ 82,2 

240 POSITION 2, 18+J#2:PRINT Jt+is". "3 
G$ (Z*18-J*6*-1,2*184J9*646) : NEXT J 

250 GET #1, K: IF K<49 OR К>51 THEN 250 
260 B(Z)-K-49: POSITION 9,8+2*#Z:PRINT б 
%(7%18“В(2) *641, 7#18+B(Z) 6*6) : NEXT T 
270 FOR T=1 TO 7: POSITION 2,16:? CHR$( 
156) :NEXT T:GOSUB 500: ЕОБ T=0 ТО 2: ТЕ 

A(T) =B(T) THEN NEXT T:GOTO 300 

280 POSITION 7,16:? "SORRY, THAT’S NOT 
THE MAN. "РОК T=200 ТО 250 STEP 2:SDU 

ND O,T,10,10:NEXT T:GOTO 400 

300 POSITION 15,16:? "THAT'S THE MAN!" 
“РОК T=1 TO 5: FOR J=20 ТО О STEP -1:50 

UND 0,2,10,10:МЕХТ J:NEXT Т 

400 SOUND О, 0,0,0:РОКЕ 764, 255 

410 IF PEEK (764) «255 THEN 410 

420 POKE 764,255:GOTO 200 

500 FOR T=0 TO 2: POSITION 25, 8+2#T:PRI 

NT GS (T#1B+A(T) #641, T#18+0(T) #6464) : МЕХ 

Т T:RETURN 

600 POKE 82,7:POSITION 7,6: GOSUB 900:R 

ETURN 

610 POKE 82,23: POSITION 23,4:GOSUB 900 
: RETURN 

700 M$z" "ТЕПЕ Т-О TO 2 

710 RzINT (RND (1) #3) :S=R+1: IF M$ (5,5) =" 

+" THEN 710 

720 М% (5,5) ="#":М(Т) =в: МЕХТ T: RETURN 

800 DATA 8, 10,32, 32,8, 10,32, 20,32, 52,2 

O, 32,160, 148, 52, 52, 160, 148 

810 DATA 32, 32, 160, 160, 32,32, 32, 32,139 
| | 140, 32,32, 32, 32, 153, 25, 32, 32 

DATA 32, 18, 18, 18,18, 32,32, 26,18,18‏ 820 
32,32 ,18 ,18 ,32 ,32 ,32 وگ و 

890 DATA EYES 

891 DATA NOSE 

892 DATA MOUTH 


MT 


` 


900 ? CHR$(17);:FOR T=1 ТО 8:? CHR$ (18 
) ; NEXT T:? CHRS(5):FOR T=1 TO 7:7 CHR 
%(1242%:ҒОК 2-1 TO 8:7 " ";:NEXT J 

910 ? CHR$(124):NEXT T:? CHR$ (26) $ : FOR 
T=1 TO 8:? СНН6(18)%:МЕХТ T:? CHR$ (3) 


: RETURN 


Numbers Runner 


In this game you are presented with a grid consisting of 20 stars as 
well as 20 blanks at the bottom of the screen. The numbers from 1 to 
20 have been hidden under the stars randomly. The game is played 
with a joystick in port 1. Using the Joystick, you can move around the 
grid. When you press the button on the joystick a number will appear 
under the star you are currently on. You goal is to place the numbers 
on the blank spaces at the bottom of the screen in order from 1 to 20. 
When you find 1, press the button and a 1 will appear in the first 
blank on the upper left. When you find 2 press the button and a 2 will 
appear in the blank to the right of 1. You have to remember what is 
under the stars that you have tested out in order to get all 20 numbers 
before your time runs out. There is a timer built into this program as 
well as a score keeper. The timer sets the length of a turn to one 
minute. The scorer will record your highest score. 

This is a memory development game—one that involves the 
kinds of skills called upon when you are asked about details of stories 
you have read or pictures you have seen. It is possible, after a while, to 
register all of the numbers that you land on and solve the puzzle in 
half the time you are allowed. 

The timer in the program is controlled by two lines, 160 and 
290. There are three memory locations in your Atari 800 that control 
what is called a jiffy clock that can be used for many different pro- 
grams. They are locations 18, 19, and 20. A jiffy is 1/60th of a second. 
Location 20 counts up to 256 jiffies or about 4 seconds. Each 256 
jiffies (or four seconds} is recorded in memory location 19 which can 
count 256*4 seconds. Memory location 18 records cycles of memory 
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location 19 and, therefore, units of 4*256*256 seconds. You can think 
of location 20 as counting seconds, 19 as counting hours, and 18 as 
counting days. The reason the number 256 is involved is that the 
Atari 800 is an 8-bit byte machine; that is, each memory location is 
one unit (called a byte) of eight on/off switches. Using base 2 these 
eight switches can store up to 256 different numbers. 

Now take a look at line 290. It reads: 


290 IF PEEK(19) > 15 THEN GOTO 500 


РЕЕК(19) tells you how many cycles of 4 seconds’ length eazh location 
19 has recorded. Fifteen cycles of approximately 4 seconds duration 
give you just about 15*4 or 60 seconds—the one minute the timer 
allows. When location 19 goes beyond the recorded minute, the pro- 
gram jumps to line 500 which stops the game and prints out your 
score. 

If you want to change the timer to 2 minutes, all you have to do 
is rewrite line 290 as follows: 


290 IF PEEK(19) > 30 THEN GOTO 500 


Try it and also try to speed up the game by setting location 19 to 30 
seconds. 

The other line involved with the keeping is line 160. It resets 
the clock to О before you begin a new game. These two lines can be 
used in any programming context where you want to control the 
time. 


ii 
HTH 
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100 REM ### NUMBER RUNNER ww 

110 DIM M$(20) , PX (4,3), PY(4,3),N(4,3): 
GRAPHICS O:POKE 752,1:SETCOLOR 2,12, 4: 
SETCOLOR 4,12,4:SETCOLOR 1,0,12 

120 PRINT CHR$(125):POSITION 14,1:FRIN 
T “NUMBER RUNNER": M$="Q000000000000000 
ОООО": РОК X=0 TO 4:FOR Y=0 TO 3 

150 N-INT(RND(1)*20)*1: IF M$(N,N)="1" 
THEN 130 

140 M$(N,N) x"1":N(OXG Y) =NIPX (OX, Y) 2X441 
2: PY (OG, Y) SY* 4-4: POSITION PX(X,Y),FY(X, 
Y) PRINT "*":NEXT Y:NEXT X 

150 FOR Y=20 TO 23 STEP 3:FOR X=0 ТО 2 
7 STEP S:POSITION 6-X,Y:PRINT CHR$ (13) 
3 CHR$(13205" "S:NEXT X:NEXT Y 

160 POKE 19,0:РОКЕ 20, 0: X=2:Y=1:RX=2:R 
Y=19:R=1 

180 ТЕ STRIG(O)zO AND N(X,Y)>0 THEN 40 
о 

190 T=STICK(O):IF T=15 THEN 250 

200 ТЕ T>8 AND T<12 THEN XzX-1:IF x20 
THEN X=4 | 

210 ТЕ Т>4 AND T<8 THEN X-X«1:1F Х24 T 
HEN X=0 

220 IF T=10 OR T=14 OR T=6 THEN Ү-Ү-1: 
IF Ү<0 THEN Y=3 

250 IF T=9 OR T=13 OR T=5 THEN Ү-Үж1:1 
F Y>3 THEN Y=O 

240 FOR T=36 TO O STEP -4fSOUND 0,T,10 
,12:NEXT Т 

250 POSITION PX(X,Y),PY(X,YO : IF М(Х, YO 
20 THEN PRINT " "3:GOTO 270 

260 PRINT "D" 

270 FOR T=1 TO SO:NEXT T:IF N(X,Y)>0 T 
HEN POSITION PX(X,YO,PY(OX, Y) :PRINT "s" 
:GOTO 290 

280 POSITION PX(X,Y),PY(X,Y) :PRINT " " 
290 IF PEEK(19)>15 THEN 500 

300 GOTO 180 

400 POSITION PX(X,Y),PY(X,Y) SPRINT М(Х 
;Y):GOSUB 600 

410 IF STRIG(O)-1 THEN 410 

420 IF N(X,Y)<>R THEN POSITION PX (X,Y) 
,PYOGS,YO PRINT "ж ":GOSUB 600:GOTO 180 
450 RX=RX+3: IF RX>34 THEN RX=6:RY=RY+3 
440 POSITION RX,RY:PRINT RIR=R+1: POSIT 
ION PX(X,Y),PY(X,Y):PRINT "  ":FOR T=2 
55 ТО O STEP -5:S0UND 0,T,10,12 

450 NEXT T:SOUND 0,0,0,0:N(X,Y)=O:IF К 
<21 THEN GOSUB 600:GOTO 180 

500 POSITION 14,17:PRINT "YOUR SCORE: 
"jR-1:IF R-1>HS THEN HS=R-1i 
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310 POSITION 14,18:PRINT "HIGH SCORE: 
“3HS:GOSUB 600:FOR T=1 ТО 200:NEXT Т 
520 IF STRIG(O)=O THEN 120 

550 GOTO 520 

600 IF STRIG(O)zO THEN 600 

610 RETURN 


A. Pause for Meditation 
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Meditative Images 


Here is a program that you can relax with. It generates different colors 
and images that show off the use of [CRTL] graphics and the SET- 
COLOR function of the Atari and provide a relaxing, slowly changing 
visual experience to savor. 
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100 REM жин MEDITATIVE IMAGES www 
110 GRAPHICS O:POKE 752,1:PRINT :SETCO 
LOR 2,0,0:POKE 82,0:DIM I(8) 

200 FOR Ү=0 TO 8 STEP 2 

210 LIZINT (RND (1) #5) 

220 IF LI=I(Y) THEN 210 

230 I(Y)-LI:RI-LI:IF 1152 THEN RI=7-LI 
240 FOR X-O TO Y STEP 2 

250 POSITION 18~-X,10-Y+X:GOSUB SOO+LI 
260 POSITION 18-X,12+Y-X:GOSUB 500441 
270 POSITION 20+X, 10-Y+X:GOSUB SOO+RI 
280 POSITION 20+X,12+Y-X:GOSUB SOO+RI 
290 NEXT X:FOR T=1 TO 550: МЕХТ T:NEXT 


ЗОО SETCOLOR 2, INT(RND(1) #16), 2: SETCOL 
OR 1,0, INT(RND(1)#9)+6:GOTO 200 

300 PRINT CHR$(8); CHR$ (10); CHR$ (30) ; CH 
R$ (30) $ CHRS (29) s СНКФ (138) ; CHR$ (136) : RE 
TURN 

501 PRINT CHR$ (136) 3 СНЕФ (138) ; CHR$ (30) 
3 CHR$ (30) 5 CHRS (29) 5 CHR$ (10) ; CHRS (B) : RE 
TURN 

502 PRINT CHR$ (7) 3 CHRS (6) 3 CHR$ (SO) 5 CHR 
$ (30) š CHR$ (29) 5 CHR$ (6) 3 CHR$ (7) : RETURN 

SOS PRINT CHR$ (7) ; CHR$ (7) 3 CHR$ (50) $ CHR 
$ (30) ; CHR$ (29) ; CHR$ (4) ; CHR$ (6) : RETURN 

504 PRINT CHR$ (6) ; CHR$ (6) š CHR$ (30) ; CHR 
$ (30) š CHR$ (29) ; CHR$ (7) $ CHR$ (7) : RETURN 
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The SETCOLOR function built into Atari BASIC gives you con- 
siderable control over the 128 colors that the Atari can generate. It 
has three variables: 


SETCOLOR A,B,C 


The A variable refers to the color register. In the case of this program, 
which is in Graphics 0, if A=2 the background color can be changed 
and if A-1 the foreground color (letters, numbers, and graphics char- 
acters) can be changed. For more details on how to use the color 
registers in all of the Graphics modes, consult your ATARI BASIC 
Reference Manual. 

The B variable controls the color and ranges from 0 to 15 while 
the C variable controls the luminance of the color and ranges from 0 
to 14 (the higher the brighter). It is the combination of different colors 
and luminances that generates the pallet of the Atari 800. 

Here is a short program that shows you how the color changes 
work in the Meditative Imagery program. Notice at line 40 that first 
the background color is changed by using SETCOLOR 2,C,D and then 
the foreground is changed by using SETCOLOR 1,ВС. 


10 GRAPHICS O:SETCOLOR 2,0,0 
20 PRINT "HHHHHHHH" 
30 FOR X=1 TO 500:NEXT X 


50 


40 SETCOLOR 2, INT(RND(1)*16),2:SETCOLOR 
1,0, INT(RND(1)*9)+6 

50 PRINT "YYYYYYYY" 

60 FOR X=1 TO 500:NEXT X 

70 GOTO 10 
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T. games and puzzles in this chapter require some thought. 
Their outcome is not decided by a spinner, a roll of dice, or any other 
chance device. If you work at them you should be able to figure out a 
way to solve their challenges (or, in one case, prove that a solution is 
impossible) and even beat the computer which has been programmed 
to play against you. If you read through the commentary on the games 
youll also find out how to add a timer to your own games as well as 


some other information about game challenges and programming 
Strategies. 
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The Pattern Game 


This game requires cooperation in an indirect way. You are given a 4 
x 4 grid and asked to make a pattern on it. Using a joystick, you can 
create a star pattern on it. Using a joystick, you can create a star 
pattern by moving the cursor to any spot on the grid where you would 
like to place a star. If you press the button, a star will appear on your 
grid. Press SELECT when you are finished and your pattern will be 
covered over. Have a friend try to guess your pattern by moving the 
joystick and pressing the button to place a star where he or she thinks 
it might be. Here's where the cooperation comes in. If you don't create 
a regular pattern on the grid, your friend will certainly have a hard 
time reconstructing your grid. In fact, if you simply place stars at 
random on the grid, the game will be no fun at all. You have to create 
a pattern that is challenging and decipherable. By the way, if your 
friend is getting frustrated he or she can press the OPTION key to 
get a clue. One of the stars will be revealed. 
Here are a few challenging patterns: 


+ + + + 
+ 3X « ж 


ж * и" ff 


* ж ” » 
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THE PATTERN (GAME 
MAKE YOUR HIDDEN PATTERN... 
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Press SELECT when you've finished. 


100 REM www THE PATTERN GAME www 

110 DIM С(5),Р1(5,3),Р2(3,3):С(19-96:С 
(2) =42:С (5) “Ва: GRAPHICS О:РОКЕ 752,1 
120 ? CHR$(125) :POSITION 12,52? "THE P 
ATTERN GAME":POSITION 7,5 

150 ? "MAKE YOUR HIDDEN PATTERN. ..":PQ 
KE 82,9:POSITION 9,8:K-1:GOSUB 700 

140 POSITION 5,19:? "Press SELECT when 
you’ ve finished. ":X=0: Y=0:CL=0 

200 P=STRIG(O) IF Р=о THEN P1(X,Y)=P1 ¢ 
X, Y) *1:IF P1((X,Y)»3 THEN Р1(Х,Ү)-1 

210 IF P=0 THEN POSITION 9*X*2,8-Y42:7 
CHR$ (C (P1 (X,Y) )) : GOSUB 550 

220 GOSUB 600:POSITION 9+Х#+2,8+ү#2:7 " 
“SIF Х<>7Х OR Y<>ZY THEN FOR T=10 ТО 
O STEP -1:50ММр O,T,10,8:NEXT Т 

230 GOSUB 300: POSITION 9--X*2,8-Y*2:7? С 

HR$(C(P1(X,Y))) : GOSUB 500 

240 IF РЕЕК (55279) «55 THEN 200 

ЗОО POSITION 4,5:? "NOW BUESS THE HIDD 

EN PATTERN. ..":POKE 82,9: POSITION 9,8 

310 K=3:GOSUB 700:POKE 82, 24: POSITION 

24, 8:K=2: GOSUB 700: POSITION 3,21:? "Pr 

ess OPTION to get a сіне. ":X=0: Уго 

400 P=STRIG(O):IF Р-О THEN P2(X, Y) =P2 ( 

Х,Ү)+1:2:1Е P2(X,Y)>3 THEN P2(X,Y)=1 

41O IF P=O THEN POSITIDN 24-X*2,B8-Y*2: 

? CHR$(C(P2(X,Y))): GOSUB 550 

420 GOSUB 600: РОФТТТОН 24%Х%2,8-Үж2:? 

"^ "SIF Х<>7Х OR Y<>ZY THEN FOR T=10 TO 
О STEP -1: SOUND O,T,10,8:NEXT T 

430 GOSUB 500:POSITION 24-X*2,8-Y42:7? 

CHR$ (С (P2 (X, Y)) ) š GOSUB 500 

440 IF PEEK (53279) x3 THEN 900 

450 IF PEEK (53279) <>5 THEN 400 


56 


460 FOR J=0 TO 3:FOR Т=0 TO 3:IF ABS(P 
1(T,J))<>P2(T,J) THEN ? СНЕ (253) : БОТО 
400 

470 NEXT T:NEXT J:POSITION 1,5:? "YDU 

DID IT WITH "$CL3" CLUES! PRESS START 
“FOR J=1 TO 3:FOR T=20 TO O STEP -i 

480 SOUND O,T,10,10:NEXT T:NEXT J 

490 IF РЕЕК(53279)<>6 THEN 490 

495 GOTO 120 

500 FOR T=1 TO 10:IF 5ТІСК(02<>15 OR S 

ТКІб (0) =0 THEN T=10 

510 NEXT Т: RETURN 

350 IF 5ТКІб (0) =0 THEN 550 

560 RETURN 

600 Z=STICK (0) 3 ZX=X:ZY=Y:IF 258 AND Z< 
12 THEN XzX-1:IF Х<О THEN X=0 

610 IF 7>4 AND 7<8 THEN X=X+1:IF X»3 T 

HEN X=3 

620 ТЕ 7-10 OR 7-14 OR Z=6 THEN Y=Y-1: 
IF Y<O THEN Y=0 

650 IF Z=9 OR Z=13 OR 755 THEN Y=Y+i:I 

F Y>3 THEN Y=3 

640 RETURN 


700 FOR J=O ТО 3:FOR Тео TO 3:1F K=2 Т 
HEN ? CHR$(C(P2(T,J)))5" "5 

710 IF K=1 THEN P1(T,J)=1:P2(T,J)=1:? 

СНКФ (95) з" "j 

720 IF K=3 THEN ? ". "; 

730 NEXT Т:? :? :NEXT J:RETURN 

900 IF P1(X,Y)<O THEN 400 

910 POSITION 9-X*2,84Y*2:? CHRS(C(P1 (X 
;Y))) POSITION 24+Х#2,8+ү#2:7 CHR$ (C (P 
1(X,Y))) :CL-CL«*1:P2(X, Y) =P1 (X,Y) 

920 P1(X,Y)=-P1(X,Y):GOTO 400 
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3x 3 and 4x 4 Number Puzzlers 


The 3x3 and 4x4 Number Puzzlers are computer versions of puzzles 
that are over 100 years old. The earliest versions of the puzzles con- 
sisted of wooden trays with numbered wood blocks laid into them as 


in this old drawing: 
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The 4x4 puzzle consists of a 4x4 square grid with the numbers 1 
through 15 printed on the blocks. There is one blank square on the 
grid. The blocks can be moved onto the empty square and, little by 
little, shuffled around the entire grid. The puzzle consists of shifting 
the numbers around the grid and then reassembling them in consecu- 
tive order. Here is one possible challenge on the 4x4 board: 


Put this square in order so that 1 is at the top left and all the other 
numbers proceed in order from left to right and then top to bottom as 
in the first drawing: 


The computer versions of the program first use a 3x3 board and 
the numbers 1 to 8, and then a 4x4 board and numbers 1 to 15. The 
computer shuffles the numbers for you and gives you a board to solve. 
The empty square is marked by double stars (е). Using а joystick, you 
can move the empty square vertically or horizontally onto any adjoin- 
ing square. The number in that square will then move to the pre- 
viously empty square. Thus, in the computer version you are moving 
the empty square and the numbers are switched for you. The net 
result, however, is identical to moving the blocks into the empty 
square. There is a counter built into the program that will let you 
know how many numbers you have in the right place. 


SCORE: 


ma LENE = x m= ú ú Z= Z= шен 


CI J لع‎ 


100 REM ### 3 ВУ 3 PUZZLER ww 

110 DIM Р(2,2),4%(9),В%(26):ҒОБ T=1 ТО 
26: READ K:BS(T, T) =CHR% (К): NEXT T 

120 DATA 17,18, 18, 5, 29, 30,30, 30, 30, 124 
و‎ 52, 32, 124, 29, 30, 30, 30, 30, 26, 18,18,3,2 

8, 50, 30, Зо 

130 GRAPHICS O:SETCOLOR 2,0,0:POKE 752 
„1: PRINT СНЕ5 (125) 

140 T=PEEK (560) +256#PEEK (561) :РОКЕ T+7 
ө: РОКЕ Т+8, 6: РОКЕ T+29, 65: РОКЕ T+30,P 

EEK (540) : POKE T+31, PEEK (561) 

150 POSITION 3,2: PRINT “number puzzler 


160 АФ-"ООООООООО" 

170 FOR Y=0 TO 2:FOR X=O TO 2 

180 Те ТНТ (RND (1) #9) : IF A$(T+1,T+1)="1" 
THEN 180 

190 POSITION 13+X#5,5+Y*4:PRINT B$; 
Т<>О THEN PRINT T: GOTO 210 

200 PRINT "жи“:РХ-Х:РҮ-Ү 

210 A$(T*1, T*1)z"1":P(OCL, Y) =TINEXT Х: МЕ 
XT Y:GOTO 310 

220 T=STICK(O):IF T=15 OR T=5 OR T=& O 

R T9 OR T=10 THEN 220 

250 OX-PX:0YzPY 

240 IF T-14 THEN PY=PY-1:IF PY«O THEN 

PY=0:GOTO 220 

250 IF T=13 THEN РҮ-РҮж1:ІҒ PY>2 THEN 
PY=2:GOTO 220 

260 IF T=11 THEN PX-PX-1:IF PX«O THEN 
PXzO:GOTO 220 

270 IF T=7 THEN PX=PX+1:IF РХ>2 THEN P 
Xz2:GO0TO 220 

280 POSITION 134PX«5,5-PY*4:PRINT B$;" 
ж и 

290 POSITION 13+0X#5,5+0Y#4:PRINT B$;P 
(PX, PY) 

500 P (OX, OY) =P (PX, PY) :P (PX, PY) =O 

310 FOR K=O TO 1: FOR T=10 To О STEP -2 
: SOUND 0,T,10,10:NEXT Т: NEXT K 

320 C=1:FOR ү=0 ТО 2: РОВ Х-о ТО 2 

330 IF Р(Х,Ү) =0 THEN 360 

340 IF P(X,Y)<>C THEN 370 

350 C=C+1 

360 NEXT Х:МЕХТ Y 

570 POSITION 16,19:PRINT "SCORE: "3C-1 
:GOTO 220 


100 REM жжж 4 BY 4 PUZZLER жя» 

110 DIM P(3,3),A$(16) ,B$(26):FOR T=1 Т 
О 26: READ К:В% (Т, Т) =СНЕФ (К) : МЕХТ Т 

120 DATA 17,18, 18,5, 29, 30, 30,30, 30, 124 
و‎ 32, 32, 124, 29, 30, 30, 30, 30, 26, 18, 18,3,2 
8, 30, 30, 30 

150 GRAPHICS O:SETCOLOR 2,0,0:POKE 752 
| 1 SPRINT CHRS (125) 

140 T=PEEK (560) +256#РЕЕК (561) :POKE T+7 
Ө:РОКЕ T*8,6:POKE 1+29,65:POKE 1T+30,P 
EEK (560) : РОКЕ T+31,PEEK (561) 

150 POSITION 3,2:PRINT “number puzzler 


160 А%="0000000000000000" 

170 FOR YzO TO 3:FOR X=O TO 3 

180 T=INT(RND(1)#16):IF AS(T+1,T+1)="1 
" THEN 180 : 

190 POSITION 10*X*5,44Y*4:PRINT B$5;:IF 
Т<>0 THEN PRINT T:GOTO 210 

200 PRINT "##":РХ=Х:РҮ=Ү 

210 А%(Т+1,Т+1) 2" 1":P(OX, Y) ET: NEXT. Х: МЕ 
XT Y:GOTO 310 

220 T-STICK(O):IF Т-15 OR T=5 OR T=6 D 
R T=9 OR T=10 THEN 220 

230 OX-PX:0Y-PY 

240 IF T=14 THEN PY-PY-1:1F PY<O THEN 

PY=0:GOTO 220 

250 IF T=13 THEN PY=PY4+1:IF PY>3 THEN 

PY=3:GOTO 220 

260 IF T=11 THEN РХ-РХ-1:ІҒ PX«O THEN 

PX-0:GOTO 220 

270 IF T-7 THEN PX=PX+1:IF PX>3 THEN P 
X=3:GOTO 220 

280 POSITION 10+PX#5, 4+PY*#4:PRINT B$;" 
жж " 

290 POSITION 10*0X*5,440Y*4:PRINT B$;P 
(PX,PY) 

ЗОО P(OX,0Y) =P (PX, PY) : PCPX, PY) =O 

310 FOR K-O TO 1:FOR T=10 TO O STEP -2 
:SDUND O,T,10,10:NEXT T:NEXT K 

320 C=1:FOR Y=O TO 3:FOR X-O TO 3 

330 IF P(X,Y)=0 THEN 360 

340 IF P(X,Y)<>C THEN 370 

350 C=C+1 

360 NEXT X:NEXT Y 

370 POSITION 16,21:PRINT "SCORE: ";C-1 
;" ":GOTO 220 
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There is a slight problem with this puzzle. Not all mixes of 
numbers can be unscrambled. There are some positions that are 
impossible to move into consecutive order. Sam Lloyd, one of the 
great puzzle inventors of all time, discovered several such positions in 
the 1870's and in one of his books describes how he turned this 
impossibility into a new challenge: 


Older inhabitants of Puzzleland will remember how in the seventies I 
drove the entire world crazy over a little box of movable blocks which 
became known as the “14-15 Puzzle.” The fifteen blocks were arranged 
in the square box in regular order, but with the 14 and 15 reversed as 
shown in the above illustration. The puzzle consisted of moving the 
blocks about, one at a time, to bring them back to the present position 
in every respect except that the error in the 14 and 15 was corrected. 

A prize of $1,000, offered for the first correct solution to the 
problem, has never been claimed, although there are thousands of 
persons who say they performed the required feat. 
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People became infatuated with the puzzle and ludicrous tales 
are told of shopkeepers who neglected to open their stores; of a distin- 
guished clergyman who stood under a street lamp all through a win- 
try night trying to recall the way he had performed the feat. The 
mysterious feature of the puzzle is that none seem to be able to 
remember the sequence of moves whereby they feel sure they suc- 
ceeded in solving the puzzle. Pilots are said to have wrecked their 
ships, and engineers rush their trains past stations. A famous Balti- 
more editor tells how he went for his noon lunch and was discovered 
by his frantic staff long past midnight pushing little pieces of pie 
around on a plate! Farmers are known to have deserted their plows, 
and I have taken one such instance as an illustration for the sketch. 

Several new problems which developed from the original puzzle 
are worth giving: 


Second Problem—Start again with the blocks as shown in the 
large illustration and move them so as to get the numbers in regular 
order, but with the vacant square at upper left-hand corner instead of 
lower right-hand corner (see Fig. 1). 

Third Problem—Start with the blocks as before, turn the box a 
quarter-way round and move the blocks until they rest as in Fig. 2. 

Fourth Problem—Start as before, then shift the pieces until they 
form a “magic square,” the numbers adding to thirty along all vertical 
and horizontal rows, and the two diagonals. 


i 2 3 4 8 12 
4 5 6 7 3 7 11 15 
8 9 10 11 2 6 10 14 
12 13 14 15 l 5 9 13 
Fig. 1 Fig. 2 


Following аге the answers to Lloyd's other challenges, taken from 
Dover Books Mathematical Puzzles of Sam Lloyd, edited by Martin 
Gardner whose commentary provides the answers to Lloyd's chal- 
lenges. 


[The original puzzle is impossible to solve except by such skul- 
Iduggery as turning the 6 and 9 blocks upside down. One of the 
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puzzles peculiarities is that any such interchange, involving two 
blocks, immediately converts the puzzle to a solvable one. In fact, any 
odd number of interchanges has the same effect, whereas an even 
number leaves the puzzle unsolvable as before. Readers interested in 
learning something about the interesting mathematical structure 
underlying this puzzle are referred to the classic analysis by W. W. 
Johnson and W. E. Story in their article, “Notes on the 15-Puzzle,” 
American Journal of Mathematics, Vol. 2, 1879, p. 397f, and to briefer 
discussions of the puzzle in standard references on recreational 
mathematics.—M.G.] 

The other three problems are solved as follows: 

Fig. | can be reached in 44 moves: 14, 11, 12, 8,7,6, 10, 12, 8, 7, 4, 
3, 6, 4, 7, 14, 11, 15, 13, 9, 12, 8, 4, 10, 8, 4, 14, 11, 15, 13, 9, 12, 4, 8, 5, 4, 
8, 9, 13, 14, 10, 6, 2, 1. 

Fig. 2 can be reached in 39 moves: 14, 15, 10, 6, 7, 11, 15, 10,13, 9, 
5, 1,2, 3, 4, 8, 12, 15, 10, 13, 9, 5, 1 2, 3, 4, 8, 12, 15, 14, 13, 9, 5, 1, 2, 3, 4, 
8, 12. | 

The magic square can be produced in 50 moves: 12, 8, 4, 3, 2, 6, 
10, 9, 13, 15, 14, 12, 8, 4, 7, 10, 9 14, 12, 8, 4, 7, 10, 9, 6, 2, 3, 10, 9, 6, 5, 1, 
2, 3, 6, 5, 3, 2, 1, 13, 14, 3, 2, 1, 13, 14, 3, 12, 15, 3. 

Try to figure out what characterizes an impossible challenge 
and certainly don' quit on the puzzles too soon. Something that may 
initially look impossible may merely be difficult. 
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Dozo 


Dozo is a game that Japanese GO masters use to warm up. It is decep- 
tively simple and involves a different sort of strategy than usually 
adopted in the more aggressive games of chess and checkers. Dozo 
requires that you play to not lose rather than play to win. This will 
become clear from a description of the board, pieces, and goals of the 
game. 
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Dozo is played on a board that is an equilateral triangle. In our 


version of the game, each side is seven units long. Here is a picture of 
the board: 


There are four different pieces that you can use in the game. As 
opposed to most Western games, the pieces do not belong to any one 
of the players. On each move of the game, you can choose any one of 
the pieces and place it on any empty point on the board. The goal of 
the game is to be the first player to make an equilateral triangle of any 
size with the three vertices of the triangle having the same piece. 
Suppose the pieces were called 1, 2, 3, and 4. Here is a sample game 
winning position: 


Notice that the 255 in lines 3 and 5 make up an equilateral triangle. 
The player who placed the last 2 on the board is the winner. The 
player who placed the second 2 on the board trapped him- or herself 
into a losing position. The complexity of this game emerges from the 
fact that you always have to think about not making a move that will 
give your opponent an equilateral triangle. This involves analyzing 
positions that won't lead to a loss as well as looking out for winning 
positions. Simple and direct aggression will almost always lead to a 
loss in this game. 
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The Dozo program is the longest in this book and the most 
tedious to copy because it turns the computer into your opponent. 
Strategy for playing a good game of Dozo is built into the program and 
the computer is pretty hard to beat. However, the computer is not 
guaranteed a win and no one has yet analyzed Dozo fully enough to 
know what the best possible move is in any situation. Try your hand 


at crossing up the computer. It will take time and concentration. You 
will need a joystick to play this game. 
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100 REM ¥¥¥ DOZO жжж 

1000 GOSUB 8000: IF С<>17076 THEN 9500 

2000 GOSUB 2000: 6050В 5200 

2100 GOSUB é4300:IF FP THEN 3000 

2110 POSITION 1,0:? #5; "му turn" 

2200 IF CC(P)<=1 OR CC(P)=7 THEN 2400 

2210 FOR T-O TO CC-1:M1-M(P,CC) : M2=M (Е 
;T):F12M1:F2-M2:IF Мі>М2 THEN F1-zM2:F2 
=M1 

2220 B=B(F1)+(F2-(F1+1) )#2:P1=ASC (A$ CB 
s B)) : P2=ASC (A$ (B+1, B+1) ) 

2230 IF P1<=27 THEN IF S(P1)=ASC("/") 

THEN Wi1zP1:GOTO 2300 

2240 IF P2«227 THEN IF S(P2)=ASC("/") 

THEN W1-zP2:GOTO 2300 

2250 NEXT T:GOTO 2400 

2500 GOSUB 6300:POSITION 1,0:7 #6; "ҮІР 
PEE! I WIN!!! "2xX=xX (SX (W1), SY(W1)) 2 Y=Y ( 
SX (W1),SY(W1)) 

2510 FOR T=1 TO 2:POSITION X,Y:? Мо; Т5 
:FOR J=O ТО 120:NEXT J: POSITION X,Y:? 

46:J$:FOR Ј=0 TO 80:NEXT J:NEXT Т 

2320 POSITION Х,Ү:? #63 T$: X1zX(SX(F1), 
SY(F1)):Y1=Y(SX(F1),SY(F1)):X2=X (SX (F2 
),SY(F2)):1Y2=Y(SX(F2),SY(F2)) 

2550 FOR T=1 TO S:POSITION Х,Ү:? Во; Ј5 
“ РОФТТТОМ Х1,Ү1:? #6; J$:POSITION X2,Y2 
“2 #63;J$:FOR J=O ТО SO:NEXT J 

2540 POSITION Х,Ү:? 46; T$: POSITION X1, 
Ү1:? 46; T$: POSITION Х2,Ү2:7 463T$:FOR 

J-O TO 120:NEXT J:NEXT T 

2350 FOR T-1 TO 4000:NEXT T:GOTO 2000 

2400 P-O:IF СС(1) <СС (Р) THEN P=1 

2410 IF СС(2) <СС (Р) THEN P=2 

2420 IF CC(3)<CC(P) THEN P=3 

2450 ЕР-Р:РС--1 

2440 TTzO:TCz-1 

2500 POP :IF TT<10 THEN 2520 


2505 TC-TC*1:T-TC: IF T>27 THEN 6400 


2510 IF S(T)<>ASC("/") THEN 2505 

2515 GOTO 2535 

2520 T=INT(RND(1)#28):IF S(TO«»ASC("/" 
) THEN 2520 

2525 IF CC(P)=0 THEN 2600 

2550 TT=TT+1 

2535 FOR J=0 ТО CC(P)-1:M12M(P,J) : M2-T 
2ҒісМ1:Ғ2-М221Ғ М1>М2 THEN F1zM2:F2zM1 
2540 BzB(F1)*(F2-(F1*10)) X2: P1-ASC(AS(B 
,B)) :P2=ASC (A$ (B+1, B*1)) 

2545 IF Pi<=27 THEN IF S(P1)=ASC("/") 
THEN 2500 

2550 IF P2<=27 THEN IF S(P2)-ASC("/") 
THEN 2500 
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2555 NEXT J 

2600 ТФ=РФ (Р+1,Р+1) 

2619 Х=Х (SX (Т) ,SY(T)) : YxY (SX CD), SY(T) ) 
2620 FOR K-1 TO 5:POSITION X,Y:? #63T$ 
:FOR J=O TO SO:NEXT J:POSITION X,Y:? # 
63J$:FOR 2-0 TO SO:NEXT J 

2630 NEXT K:POSITION X,Y:? мо; T$ 


2640 S(T) =ASC (T$) : PX CT) =X (SX CDD , SY (T) ) 
SPYCODzZY(GXODO,SY O20: MP ССР) ) -T:CC( 
P)=CC (Р) +1 

2700 FP=1:6OTO 2100 

3000 POSITION 1,0:? #6; "YOUR TURN" 
3100 IF STRIG(O)=0 AND CC(P)«7 THEN X= 
O: Y=0:GOSUB 6100:GOTO 3500 

5110 Z-STICK(0):1F 2-14 THEN P=P-1:1F 
P<O THEN P=3 

5120 IF 2-13 THEN P=P+1:IF P>3 THEN P= 
0 

3130 POSITION 1,P+3:? жо" " 

3140 TS$=P$ (P+1,P+1) 

5150 FOR T-O TO 27:1F STRIG(O)=0 THEN 
POSITION 1,Р%3:? 46; T$:GOTO 3100 

3160 NEXT T:POSITION 1,Р+5:7 46; T$:FOR 
Т=0 TO 27:1F STRIG(O)-O THEN 3100 
3170 NEXT T:GOTO 3100 

5500 IF STRIG(O)=0 THEN GOSUB 64100: BOT 
O 3800 

3510 Z=STICK (0) :OLDX=X: OLDY-Y 

3520 IF 7-14 THEN Х-Х-1:Ү-Ү-2 

3530 IF 2-15 THEN X=X+1:Y=Y+2 

3540 IF Z=7 THEN X=X+1 

3550 IF 2-11 THEN Х-Х-1 

3560 IF 2-6 THEN Y=Y-1 

3570 IF 7-9 THEN Y=Y+1 

3580 ТЕ Z=5 THEN X=X+1:Y=Y+1 

3590 IF Z=10 THEN X=X-1:Y=Y-1 

3600 IF Х<О OR Y>6 DR X>Y THEN X=OLDX: 
Y-OLDY 

5610 SS=P (X,Y): JS=CHRS(S(SS) ) : XS=X (X, Y 
) 2: YS=Y (X,Y) 

3620 POSITION XS,YS:? #63" "IFOR T=O Т 

О 10:МЕХТ Т 

3630 POSITION Х5,Ү5:? #6:T$ 

3640 FOR T-O TO 27:1F STRIG(O)-O THEN 

POSITION XS,YS:? 46; Ј6: GOTO 3500 

3650 NEXT T:POSITION XS,YS:? #6; J$:FOR 
T-O TO 27:1F STRIG(O)=0 THEN 3500 

3660 NEXT T:GOTO 3500 

3800 IF S(SS)<>ASC("/") THEN 3510 

3810 S(SS)-ASC(T$) :POSITION Х5,Ү5:? #6 
3 T$:PX (SS) XS: PY (SS) - YS 
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3820 M(P, CC (P) )=SS:CC=CC(P) : CC (P) =СС (P 
)*1:IF CC(P)<3 THEN FP=0:GOTO 2100 
3830 FOR Т-о TO CC-2: Мі=М(Р, CC) : M2=M (P 
s T) :F1=M1:F2=M2: IF M1»5M2 THEN Fi=M2:F2 
=M1 

5840 B=B(F1)+(F2-—(F1i+1)) #2: P1=ASC (A$ (B 
|, B) ) :P2=ASC (A$ (B+1,B+1)) 

3850 FOR J=T+1 TO CC-1: IF Pi=M(P,J) OR 
P2=M(P,J) THEN 4000 

3860 NEXT J:NEXT T:FP=0:GOTO 2100 

4000 GOSUB 6300 

4010 POSITION 1,0:7 #6; "уои won the ga 
me!" 

4020 FOR T-O TO 4000:NEXT T:GOTO 2000 
6000 ? веј CHR$(125):FO0R X=0 TO 6:FOR Y 
=O TO 6:IF Y<X THEN NEXT Y 
6010 POSITION X(X,Y), V(X, Y): 2 #65 "/":N 
EXT Y:NEXT X:FOR T=3 TO b: POSITION 1,T 
2:7 #63P$(T-2,T-2) : NEXT Т 

6020 FOR Т-О TO 27:S(T)=ASC("/") = NEXT 
T:FOR T=0 TO 3:СС(Т)-О:МЕХТ T:RETURN 
6100 IF ЅТКІб (0) =0 THEN 6100 
6110 RETURN 
‚ 6200 POSITION 1,0:? 4$5;"WILL YOU GO FI 
RST?" 

6210 GET 41,K:FP-2VO:IF K=89 THEN FPz1: 
RETURN 
6220 IF K-78 THEN RETURN 
6230 GOTO 6210 
6500 POSITION 0,0:? #2; " 
"I RETURN 

6400 PC=PC+1:P=PC: IF P<4 THEN 2440 
6410 Т=ІМТ (КМр (1) +28) :ІЕ S(TO«»ASC("/" 
) ТНЕМ 6410 
6420 P=EP:GOTO 2600 
8000 POKE 106, 120: GRAPHIES 17:FOR T=0 
TO S1:READ K:POKE 1536+T,K:NEXT T:T=US 
R(1536, 57344, 31744) : POKE 756, 124 
8010 DATA 104, 104, 133, 204, 104, 155,205, 
104, 155,206, 104, 133, 205, 162, 4.160,0, 17 
7,203, 145, 205, 200, 208, 249, 230,204 
8020 DATA 230, 204, 202, 208, 240, 96 
8030 DIM A$ (756), T$(1) ,J$(1), РФ(4), 5(2 
7),PX (27) , PY (27) ,B(26),CC(3), Р (6, b), Xi 
ó, 6); Y (6, b), M(3, b), SX (27), SY (27) 

8040. FOR X=0 TO 6: FOR Y=O ТО 6:IF Y<x 
THEN NEXT Y 

8050 X(X,Y)=1O-Y+2*#X:Y(X,Y)=Y+2:NEXT Y 
NEXT Х:Т-О:ҒОК Ү=0 TO 6:FOR X=0 ТО 6: 
IF X>Y THEN NEXT Y 

8060 P(X,Y)T:SX((OT) X: SY (Т) SY: T-T*1: NE 
XT X: NEXT Y 
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8100 FOR T=0 ТО 26:READ K:B(T)-K:NEXT 
+ 

8110 DATA 1,55,107,157,205,251,295,257 
»377,415,451,485,517,547,575,601,625,6 
47, 667, 685, 701, 715, 727, 737, 745, 751, 755 
8120 OPEN #1,4,0, "К: ":Т=РЕЕК (560) +256# 
PEEK (561):FOR J=T+7 TO T+19 STEP 2:POK 
E J,7:POKE J+1,112:NEXT J 

8130 POKE T+22,65:POKE T+23, PEEK (550): 
POKE T+24, PEEK (5641) :POSITION 5,5:? #63 
“PLEASE WAIT" 

8140 FOR T=1 TO 4:READ K:P$(T,T)-CHR$( 
K) NEXT T:J$="/":DATA 171,44,13,142 
8500 FOR T-O ТО 39:READ K:POKE 51744+8 
8+T,K:NEXT T 

8510 DATA 0,0,60,125,24,125,60,0 

8520 DATA 0,0, 126,195, 189, 195, 126,0 
8530 DATA 0,0, 102, 126, 24, 126,102,0 
8540 DATA 0,0, 24, 126, 231, 126, 24,0 

8550 DATA 0,0, 24, 60, 126, 60, 24,0 

8600 C-O:FOR T=1 TO 756:КЕАр K:C=C+K:A 
$(T, T) =CHR$ (K) : NEXT. T: RETURN 

9000 DATA 2,32, 1,32,5,32,32,32,3,32,9, 
32, 32, 32, 32, 32, 6, 32, 14, 32 

9010 DATA 32,32, 32,32, 32, 32, 10,32, 20,3 
2,32, 32,32, 32,32, 32, 32, 32, 15, 32 

9020 DATA 27,32, 32,32, 32, 32, 32,32, 22,3 
2,32, 32,21,32,0,4,4,32,2,3 

9050 DATA 7,32,8,32,5, 32,6, 32,11, 32,13 
2 32,9, 32,32, 32, 10, 32, 16, 32 

9040 DATA 19,32, 14,32, 32, 32,32, 32, 15,3 
2, 22,32, 26, 32, 20, 32, 32, 32, 32, 32 

9050 DATA 32,32, 21,32, 32,32,8,32,1,5,4 
,52,13,52,9,32,5,32,7,52 

9060 DATA 19,32,14,32,32,32,6, 52, 11,22 
» 26,32, 20,32, 32, 32, 32, 32, 10, 32 

9070 DATA 14,32,32, 32, 27, 32,32, 32,32,3 
2, 32,32, 15,32, 22,32,1,7,0,12 

9080 DATA 7,32,4,4,2, 11,17, 32, 12, 32,8, 
32,5, 10, 16,32, 23, 32, 18, 32 

9090 DATA 13,32,9,32, 15,32, 22, 32, 32,32 
» 25,32, 19,32, 14, 32,32, 32,21, 52 

9100 DATA 32,32,32,32, 2,8, 12,32,3,8,5, 
7,12,32, 18,32, 13,32,6,9 

9110 DATA 11,32,17,32, 25, 32,19, 52,14,“ 
2, 10,32, 16, 32, 23, 32, 32, 32, 25, 32 

9120 DATA 20,32, 32,32, 15,32, 22,32, 32,3 
2,18,32,1,13,4,9,8, 32, 25,32 

9150 DATA 19,32,3, 14,7, 32, 12, 32, 32, 32, 
26,32, 20,32, 6, 32, 11,32, 17,32 

9140 DATA 32,32,32,32, 27,32, 32,32, 10,3 
2,16,52,25,52,5,11,1,17,0,24 
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9150 DATA 11,52,7,10,4,16, 2,23,32, 

7,32,12,32,8,15,5, 22, 32, 32 

9160 DATA 32, 32 24,32, 18, 32,13,32,9, 21 

992,52, 32, 32,32, 32, 4, 12, 2, 18 

9170 DATA 17,32,86, 12, 8,11, 5,17,24,52,2 

4,52,18, 52, 10, 15, 9,16,23,52 

9180 DATA 52, 52, 52: 52,25,32,19,32,14,1 

5, 22, 32,32, 32, 32, 32, 5, 13,24,32 

9170 DATA 3, 18, 713,9, 12, 18,32,32, 32,2 

32,24,32 ,17 ,19,11,14 ,32,6 ,ك 

9200 DATA 32,32, 32,32, 26,32, 10,20, 16,3 

2,23, 32,32, 32, 32, 32, 1,25,4,19 

,26 وک و2ک ,32 ,32 ,32 ,32 ,13 ,14 ,8 DATA‏ 9210 

7,20,12,32,18, 32, 32, 32, 32, 32 

9220 DATA 32, 32, 6, 27, 11, 32, 17,32,24,32 

:6,16,3,23,1,32,0,32, 16,32 

512. DATA 11, 15,7,22,4, 32, 2, 32,32, 32,2 
و‎ 32,15,16, 12, 21, 8, 32, 5, 32 


uS. DATA 32, 52, 32, 32, 7,17,4,24,2, 2,2 


3,32, 10,17, 12,16, 8, 23,5, 32 

9250 DATA 32, 32, 32, 32, 24, 32, 15,18,13,2 
2,9, 32, 32,32, 32, 32,8, 18,5, 25 

9260 DATA 32,32,5,24, 11, 18,13, 17,9,24, 
32,32, 32,32, 32, 32,10, 25, 16,19 

9270 DATA 14, 23, 32, 32, 32, 32,9,19, 32,32 
,3,32,7,25,12,19, 14,18, 25,32 

9280 DATA 32, 32, 32, 32,6, 32, 11,26,17,20 
, 24, 32,32, 32, 32,32, 1,32, 4, 32 

9290 DATA 8, 26,13, 20,19, 32, 32, 32, 32,32 
3,32, 7,32, 12, 27, 18, 32, 25, 32 

9500 DATA 10,22, 6,32,3,32,1,32,0,32, 22 
,352,16,21,11,32,7,22,4, 32 

9310 DATA 2, 32, 32 »32,11,23,7,32,4,32,2 
, 32,32, 32, 15, 23, 17, 22, 12,32 

9520 DATA 8, 32,5, 32, 32, 32,12, 24,8,32,5 
, 32, 32, 32, 10, 32, 14, 24,18, 23 

9330 DATA 13,32. 9, 32, 32, 32, 13, 25,9, 32, 
32,32, 6,32, 11,32, 17, 25,1924 

9340 DATA 14, 32, 32, 32,14, 26, 32,32,3,32 
, 7,32, 12, 32, 18,26, 20,25, 52,52 

9350 DATA 32,32, 1, 32, 4, 32,8, 32, 13,32,1 
9,27, 26, 32, 15, 32, 10, 32.6, 32 

9360 DATA 3,32, 1,32,0, 32, 16,32, 11, 32,7 
32,4, 32,2, 32, 17,32, 12,32 

9370 DATA 8,32,5, 32,18,32,13,32,9,32 
9,32,14,32, 20, 32 

9500 GRAPHICS 0: PRINT “INCORRECT DATA 
IN LINES 9000-9370": END 
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)) ) у а у ) ) а )) ) у уз у у у ) ) ) )у у ) 3 ) ) у у у )У а ) у) у ) ) 


A. BASIC has a powerful sound function built into it. The 


function, which takes four variables, is: 
SOUND A, B, C, D 


The first variable, A, controls the number of voices or sounds the 
computer can use. It ranges from 0 to 3, thus controlling four voices— 
0, 1, 2 and 3. 

The second variable, B, controls the pitch or note that the com- 
puter plays. It ranges from 0 to 255, giving you 256 sounds to control. 
These sounds are sometimes closer together than the sounds you'll 
find on the piano keyboard. Here is a chart giving you piano/compu- 
ter equivalents for several octaves: 


N Note N Note 
26 ри 61 С 
27 D 65 B 
29 C# 69 A# 
31 C 73 A 
32 B 77 G# 
34 A# 82 G 
36 A 86 Ен 
38 G# 92 F 
4] G 97 E 
43 ЕН 103 D# 
46 F 109 D 
48 E 115 C# 
51 D# 122 С 
54 D 129 B 
58 СЕ 137 АЯ 
145 А 


Notice that the lower the number the higher the notelll! 

The third variable, C, is a special effects variable. Sometimes it 
causes the equivalent of explosions or spooky sounds. When it is set 
at 10 you are in the normal music mode, which ranges from 0 to 15. 
Experiment with settings other than 10, Some will produce no sound 
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at all; other will create effects you might want to include in programs 
you create. 

The fourth variable, D, controls the volume. It ranges from 0 to 
15 with 8 being the normal mid-volume, 0 being the lowest setting, 
and 15 the loudest. 

There is one other command that is used with SOUND A,B,C,D 
to give you control over the length of time each note is sounded. That 
15 a pause command that is represented in BASIC by an empty FOR... 
NEXT ... loop. For example: 


FOR X=1 TO 100:NEXT X 


The actual length of the pause created by the loop varies according to 
where it appears in your program, although, the larger the number 
that comes after TO the longer the pause. You'll get a feel for timing 
by playing around with pause loops. 

Here are a few simple programs that will help you get a sense of 
how the SOUND command and the pause loop work together: 


This program plays middle, high, and low C at the same time: 


0 REM C IN 3 OCTAVES 

10 SOUND 0,31,10,8 

20 SOUND 1,61,10,8 

30 SOUND 2,122,10,8 

40 FOR X=1 TO 1500:NEXT X 


This program also plays the three C's but starts with one, adds a 
second and then a third after slight pauses. Notice where the pauses 
are placed and how long they аге when you run the program. 


О REM C'S IN THREE TIME ZONES 
10 SOUND 0,31,10,8 

15 FOR X=1 TO 500:NEXT X 

20 SOUND 1,61,10,8 

25 FOR X=1 TO 1000:NEXT X 

30 SOUND 2,122,10,8 

35 FOR X=1 TO 1500:NEXT X 


This program only uses one voice and thus plays the three C's 
one after the other without creating a chord. 
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O REM C’S IN THREE STAFFS 
10 SOUND 0,31,10,8 

15 FOR X=1 TO 500:NEXT X 
20 SOUND 0,61,10,8 

25 FOR X=1 TO 500:NEXT X 
30 SOUND 0,122,10,8 

35 FOR X=1 TO 500:NEXT X 


Here the third or special effects variable is changed so that you 


can hear some of the sounds and noises you can make with your Atari 
800. 


О REM SOUND AND EFFECTS 
10 SOUND 0,31,10,8 

15 FOR X=1 TO 500:NEXT X 
20 SOUND 0,61,8,8 

25 FOR X=1 TO 500:NEXT X 
30 SOUND 0,122,6,8 

35 FOR X=1 TO 500:NEXT X 

О REM SOUND, EFFECTS AND VOLUME 
10 SOUND 0,31,10,1 

15 FOR X=1 TO 500:NEXT X 
20 SOUND 0,61,8,6 

25 FOR X=1 TO 500:NEXT X 
30 SOUND 0,122,6,12 

35 FOR X=1 TO 500:NEXT X 


This program takes you through all of the sounds you can con- 
trol over two octaves. You'll notice that these sounds do not make up 
a scale as the computer can generate sounds that lie in between notes 
on a 12-tone scale. 


0 REM COMPUTER RANGE 2 OCTAVES 
10 FOR X=36 TO 145 

20 SOUND 0,Х,10,8 

30 FOR Y=1 TO 50:NEXT Y 

40 NEXT X 


This final program shows you how to put sound into a READ 
DATA command. This is a memory-efficient way of storing tunes. 


76 


Notice that all the notes are put on line 50. You don't have to write a 
separate SOUND command for each note. Also notice that the -1 is 
used to let the computer know (at line 15) when the data has all been 
used. 


О REM SOUND WITH FLAG:READ..DATA.. 
10 READ Z 

15 IF Z=-1 THEN GOTO 45 

20 SOUND 0,2,10,8 

30 FOR X=1 TO 50:NEXT X 

40 GOTO 10 

45 PRINT “ТНАТ5 ALL FOLKS” 

50 DATA 10,200,25,56,78,98,45,92,-1 


Now here are several more complex programs that you might 
find fun and useful. 
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High Note Low Note 


In this game you use a joystick to rearrange a series of notes from 


high to low. Eight notes are scrambled and hidden under squares on 
the screen. 


HIGH NOTE 


By pushing the joystick forward or backward, you move up and 
down the musical scale. Press the button to pick up a note in position 
and carry it to another position. Press the button again to drop the 
note. Put the lowest note at the bottom of the screen and the highest 


at the top. The computer will let you know when you have succeeded 
in ordering the notes. 


100 REM жжж HIGH NOTE LOW NOTE жжж 
110 DIM M$(8),A(7),P(7),BS(7) ,C$(7),D$ 
(7): GRAPHICS O:POKE 752,1:7 

120 FOR T=1 TO 7:READ K:B$(T,T)-CHRS(K 
):NEXT T:DATA 160, 140, 30, 30, 29, 160, 160 
130 FOR T=1 TO 7:READ K:C$(T,T)-CHR$(K 
):МЕХТ T:DATA 6,7,30,30,29,7,6 

140 FOR T-1 TO 7:READ K:D$(T,T)-CHR$(K 
):МЕХТ T:DATA 8, 10, 30, 30, 29, 138, 154 
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200 PRINT CHR$ (125) 2MS=" #2222024": FOR 
=O TO 7 

210 R=INT(RND(1)#8)21F MS(R+1,R+1)<¢>"% 
" THEN 210 

220 M$S(R+1,R+1)=STR$(T);P(R)=T:NEXT T 

230 RzINT(RND(1)*4):RESTORE 900+R: FOR 
Т«О TO 7:READ K:A(T)-K:NEXT Т 

240 POSITION 7,2:7 "HIGH NOTE":FOR T=O 
TO 7:POSITION 19,1+T#3:? B$;:S=A(F (T) 
) : GOSUB 500:МЕХТ T:POSITION 23,22 

250 ? "LOW NOTE": Y=0:W=0:GOSUB 600 

ЗОО ТЕ STRIG(O)zO THEN 400 

505 IF W=1 AND PEEK (55279) =6 THEN 200 

310 IF STICK(0)=15 THEN 500 

320 KYzY:Z-STICK(O):IF Z=14 THEN Y-Y-j 
SIF Y<O THEN Ү-о 

550 IF Z=13 THEN Y=Y+1:IF Y>7 THEN Y=7 

340 IF Y=KY THEN 300 

350 POSITION 19,1+KY*3:7 BS3:GOSUB 600 
:GOTO 300 

400 NN=1-NN:KY=Y:GOSUB 600 

410 IF STRIG(O)-O THEN 410 

420 GOTO 300 

500 FOR (515 TO O STEP -1:SOUND 0,5,10 

sL NEXT L:SOUND 0,0,0, 0: RETURN 

600 POSITION 19,1+Y#3:IF NN THEN ? C$; 

"ТЕР CY) 2P CY) =P (KY) PC KY) 2T: M$ (Y41, Y+1) 

=STRS(P CY) ) : МФ (KY*1, KY*1) =STRS(P (KY) у 

610 IF NN=O THEN ? D$; 

620 Ѕ=А (Р (У) ):GOSUB SOO:IF M$="0123456 

7" AND мм-О THEN 700 

630 IF W=1 THEN 710 

640 RETURN 

700 POSITION 4,10:? "YOU DID IT'":POSI 

TION 25,10:? "PRESS START": W=1: RETURN 

710 POSITION 4,10:7 " "*PÜOSI 

TION 25,10:? " "*W-O: RETURN 

700 DATA 60,64,72,81,91,95,108,121 

901 DATA 72,81,91, 96, 108, 121, 128, 144 

902 DATA 81,85, 96, 108, 121,128,144, 162 

905 DATA 96,108, 121,128,144, 162, 173,19 

5 


Неге are the DATA statements used in the program. Notice 


that each line has eight numbers representing the eight notes used in 
the game and also that these numbers are ordered from low to high. 
You can change these statements and put your own scales or inter- 
vals in their place. Be sure, however, to keep eight notes on a line and 


order them from lowest to highest. 
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900 DATA 40,64,72,81,91, 96, 108, 121 

901 DATA 72,81,91, 96, 108, 121, 128, 144 
902 DATA 81,85, 96, 108, 121, 128, 144, 162 
905 DATA 96,108, 121, 128, 144, 162, 173,19 
3 


The Guitar Tuner 


You can use this program to tune your guitar. The screen presents 
you with a picture of a grid indicating the six strings on a guitar. Just 
press the number corresponding to any string to turn on that tone. 
When you want to turn off the tone, press any key. 


THE GUITAR TUNER 


100 REM ### THE GUITAR TUNER жин 

110 DIM 6(5),А6(11),В6Х(11),С%(11):ҒОН 
T=O ТО S:READ K:S(T)=K:NEXT T:DATA 47, 
64,81, 108, 144,193 

120 FOR T=1 TO 11:READ K:A$(T,T)-CHR$( 
K):READ K:B$(T, T) =<CHRS(K) : READ K:C$(T, 
Т) sCHR$(K):NEXT Т 

150 DATA 23, 124,19, 18, 32, 18, 23, 124, 19, 
18, 32,18, 23, 124,19, 18, 32, 18, 25, 124, 19, 
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18,32, 18, 23,124, 19, 18, 32, 18, 23, 124, 19 

140 POKE 752,1:PRINT CHR$(125) :POSITIO 
М 12,3:PRINT "THE GUITAR TUNER": X-14:Y 
=6 

150 POSITION X,Y:PRINT AS:FOR T=1 TO | 
O STEP 2:POSITION X,Y+T:PRINT B$:POSIT 
ION X,Y+T+1:PRINT C$:NEXT T 

160 POSITION X,Y*12:PRINT "6 54321 
":ОРЕМ 81,4,0,"K:":PÜKE 764,255 

170 IF PEEK(764)=255 THEN 170 

180 GET #1,K:K=K-49:IF K<O OR K>S THEN 
GOSUB 300:S0UND 0,0,0,0:G0TO 170 

190 GOSUB 300:POSITION X+10-K#2, Y~1:PR 
INT CHRS$(20):SOUND 0,8(K),10,10:GOTO 1 
70 

ЗОО POSITION X,Y-1:PRINT " " 
: RETURN 


Guitar Chord Tutor 


Once you've got your guitar tuned up, you might want a little help 
with mastering guitar chords. This program will give you the finger- 
ing name, and sound of the chords most commonly used on the 
guitar. 


GUITAR CHORD TUTOR 


The Guitar Tutor program displays the top frets of a guitar 
finger board and the most used chords in five keys. Type the letter 
corresponding to the chord you want to learn. Press CONTROL plus a 
letter to select a major seventh chord. Press the numbers one through 
six to hear each note of the chord. The numbers on the frets tell you 
which fingers to use in forming the chord. 


100 REM жж GUITAR CHORD TUTOR жә 
110 DIM $(5,3),C(5),0$(11),B$(11),C$(1 
1), T$ (2) : GRAPHICS О:РОКЕ 752, 1:7 

120 FOR Т=0 ТО 5:FOR 7-0 TO 3:READ k 
150 S(T, J)=K:NEXT Ј:МЕХТ T:DATA 47,45, 
42, 40,64, 60,57,53, 81, 76, 72, 68, 108, 102. 
96, 91,144,136, 128, 121,193, 182, 173, 162 
140 FOR T=1 TO 11:READ K:A$(T, Т) =СНЕФ ‹ 
K):READ K:B$(T, T) -CHR$(K) READ K:C$(T, 
T) -CHR$(K) : NEXT Т:ОРЕМ #1,4,0, "К: " 


18, 32, 18, 23, 124,19, 18, 32, 18, 23, 124, 19 


7,C,D,A7,G,A,E7,D,E,B7,A 

200 POSITION 2,20:7 "<NUMBER> Play str 
ing":? "<LETTER> Major сһоға":? "<CONT 
ROL. LETTER» Seventh chord" 

210 K=67:GOTO 400 

ЗОО GOSUB 900: RESTORE SO00+FF+K: FOR T=0 
TO S:READ P:C(T)=P:READ T$ 

510 P=(P< >-1) *#P:POSITION X*10-T*2,Y-14 

Рж2:? T$:NEXT T 

520 GET #1,K:IF K«49 OR K»54 THEN 400 

330 KzK-49:GOSUB 950:POSITION X410-k«2 
s Ү%14:? CHR$(20) 

540 IF C(K)<>-1 THEN FOR T=15 TO О STE 

P —1: SOUND O,S(K,C(K)),10,TIFOR J=1 TO 
2:МЕХТ J:NEXT T:SOUND 0,0,0,0 

550 GOTO 320 

400 IF K>O AND K«8 THEN 450 

410 IF K«65 OR K>71 THEN 320 

420 K=K-65: IF K=1 THEN 320 

430 POSITION 55,7:? CHR$(65+K);" "Ер 

О: БОТО 300 

450 K=K-1:IF К-? OR K=5 THEN 320 

460 POSITION 35,727 CHRS(65+K) 3 "Z": FF = 
10:60Т0 300 

800 DATA 0,0,2,4,2,3,2,2,0,0,0,0 

802 DATA 0,0,1,1,0,0,2,2,3,3,-1,Х 


82 


803 
804 
805 
806 
810 
811 
815 
814 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ча 
1 
pd 


ONY O» 
x 


очно 


l 
> >< 


м 


тыл DC M NO 
Pere ВО 
осовине 
NNONO^-UNO 
таман 


W © 
(АОч ч 


816 
900 


J O = N Q O O Ñ = = 


"ew ә ч ма ча ма ww © 


O 
DATA 1 
I ": POS 
TO 10 STEP 2:РО 


IK Ob O O O” O U 


О ғ 
Qe GeNN O ON "N 


T= 


и. 


SITION X,Y+T:? B$ 

910 POSITION X,Y*T*«1:? C$:NEXT T:POSIT 
ION X,Y*12:? "6 5 4 3 2 1" 
950 POSITION X,Y«14:? " 
TURN 


“SRE 
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Music Match and Noise Match 


Here are two matching games involving sound. In the Music Match 
game you are presented with a grid with the letters from A to P 
printed in order in the squares. When you press a letter, you will hear 
a tune. Each tune is repeated twice on the grid. The goal of this 
two-player game is to press two letters on your turn that play the 
same tune. The game provides good ear training. You have to 
remember tunes and match them up. Each player presses two letters 
per turn. Whenever someone makes a match, however, they get 
another chance. Here's а picture of the grid followed by the game 
program: 
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ee THE MUSIC метен AME жым 


100 REM жеж MUSIC MATCH xxx 

110 GOTO 400 

200 RESTORE 300+R#10 

210 READ P:IF P=-1 THEN SOUND 0,0,0,0: 
RETURN 

220 READ D:SOUND 0,0,0,0:SOUND 0,P, 10, 
10:FOR T=1 TO р#40:МЕХТ T:GOTO 210 
ЗОО DATA 81,2,00,2,81,2,72,2,81,1,81,1 
»60,2,81,2,72,2,81,1,81,1,60, 2,81, 2, 72 
»2,81,1,81,1, 96,2, 108, 2,121,3,-1 

510 DATA 108, 2,81,2,81,2,81, 2, 108, 2, 96 
22; 96,2, 108, 2, 108, 2,81, 2,81, 2, 72, 2,72, 
2,64,4,81,4,-1 

520 DATA 81,1,81,1,81,2,91,2,95,2,95,2 
,108,2,96,2,91,4,108,4,-1 

550 DATA 108,4,108,4,108,3,96,1,95,4,8 
5,3,96,1,85,3,81,1,72,8,-1 

340 DATA 108,2,64,1,64,1,64,1,64,1,50, 
2,64,2,72,2,72,4,108,1,108,1,72,1,72,1 
»72,1,72,1,64,1,64,1,72,2,81,2,81, 4, -1 
550 DATA 64,2,81,4,64,2,81,3,81,1, 96,1 
,108,5,81,1,81,1,81,1,81,1,64,1,55, 1,5 
5,2,53,4,-1 

560 DATA 81,2,04,2,50,2,55,4,64,4,64,2 
981, 2,64, 2,60, 2,53, 4,64, 2,47,2,53,4, 64 
,4,72,4,-1 

570 DATA 81,4,81,5,72,1,64,4,64,4,72,z 
,81,1,72,3,04,1,81,4,108,4,81,4,81,2,7 
2,1,64,4,64,4,72,3,81,1,72,3,64,1 

375 DATA 81,4,-1 

400 DIM 4$(15),8$(36) ,D$(1),X(15),Y(15 
),KCOD,ROD,SCGD : GRAPHICS О:РОКЕ 752,1 
:? :ОРЕМ 41,4,0,"K:" 
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410 RESTORE 900:FOR Т=1 TO S6:READ K:G 
$ (T, T) =CHR$ (K) NEXT Т 

420 LzO:FOR YsO TO 3:FOR X=0 TO 3:X(L) 
=164+X#2: Y (L)=7+Y*2:L=L+1:NEXT X:NEXT Y 

900 ? CHR$(125):POSITION 6,2:? "##* TH 
E MUSIC MATCH GAME ###+": РОКЕ 82,15 

310 POSITION 15,6:? 6%(1,9):7 6G$(10,18 
):РОК T=1 TO 3:? 6%(19,27):7 65(10,18) 
:МЕХТ Т:? 8$(28,36):POKE 82,2 

520 FOR Т=0 TO 15:POSITION X(T),Y(T):? 
CHRS (654+T) :МЕХТ Т: Аф: "Зее E E EH 
#":FOR TzO TO 7:FOR J=O TO 1 

930 R=INT (RND (1) #16) +1: IF A$(R,R)<>"#" 
THEN 530 

540 АФ(БК,К)-5ТК6(Т):МЕХТ J:NEXT Т:ММ-О 
:5 (0) =0:5 (1) =0:Рі =0: GOSUB 800 


600 POSITION 4, 12:7? " "SIF PL-O 
THEN POSITION 4,12:7 "PLAYER 1" 
610 POSITION 27,12:? " "IF PL= 


1 THEN POSITION 27,12:7 "PLAYER 2" 

620 FOR C=O TO 1 

630 D$=STR$(0):POKE 702,64:GET #1,K:K= 

K-65: IF K<O OR K>15 THEN 630 

640 IF C=1 THEN IF KsK(0) THEN 630 
650 IF AS(K+1,K+1)="*" THEN 630 

660 POSITION X(K),Y(K):? "#"=R=VAL (AS ( 

K+1,K+1)):GOSUB 200:K(C)=K:R(C) =R: NEXT 
C:IF R(O)=R(1) THEN 700 

670 FOR С=0 TO 1:POSITION X(K(C)),Y(K( 

C)):PRINT CHR$(65+K(C)) МЕХТ C:PL=1-PL 
:GOTO 600 

700 FOR C=O TO 1:POSITION X(K(C)),Y(Kt 

C)) PRINT CHR$(160):4$(K(C) «1, K(C) +1) = 
"е": NEXT C:S(PL)zS(PL) +10: GOSUB ВОО 

710 MM=MM+1:IF MM«8 THEN 600 

720 POSITION 2,17:1F S(O)=S(1) THEN ? 
"TIE GAME'"$;:G0TO 750 

750 T=1:IF S(1)>S(O) THEN T-2 

740 ? "YOU DID IT PLAYER ";T 

750 POSITION 12,21:? "PRESS ANY KEY... 
"SPOKE 764,255 

760 IF PEEK(764)=255 THEN 760 

770 POKE 764,255:GOTO 500 

ВОО POSITION 4,8:? "SCORE: "3S(0):POSI 
TION 27,8:? "SCORE: "3S(1):RETURN 

900 DATA 17,18,23,18,25,18,25,18,5,124 
, 32,124, 32, 124,32, 124,32, 124,1,18,19,1 
8,19,18,19, 18,4, 26, 18, 24, 18, 24,18, 24 
910 DATA 18,3 


Here is the section of the program that contains the data for the 
tunes used in the game: 
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200 RESTORE 300+R#10 


210 READ P:IF P=-1 THEN SOUND 0,0,0,0: 
RETURN 

220 READ D:SOUND 0,0,0,0:SOUND O,P,10, 
10:ҒОК T=1 TO D*40:NEXT T:GOTO 210 

ЗОО DATA 81,2,50,2,81,2,72,2,81,1,81,1 
»60,2,81,2,72,2,81,1,81,1, 60,2, 81,2, 72 
»2,81,1,81,1, 96, 2, 108, 2, 121, 3, -1 

510 DATA 108, 2,81,2,81,2, 81,2, 108, 2,96 
2, 96,2, 108, 2, 108, 2,81, 2,81, 2, 72, 2, 72, 
2,64,4,81,4,-1 

520 DATA 81,1,81,1,81,2,91,2,96,2,96,2 
,108,2,95,2,91,4,108,4,—1 

550 DATA 108,4,108,4,108,5,96,1,85,4,8 
3,3,96,1,85,5,81,1,72,8,-1 

540 DATA 108,2,64,1,64,1,64,1,64,1,60, 
2,64,2,72,2,72,4,108,1,108,1,72,1,72,1 
»72,1,72,1,64,1,64,1,72,2,81,2,81,4, -1 
550 DATA 64,2,81,4,64,2,81,3,81,1, 96,1 
з108,5,81,1,81,1,81,1,81,1,04,1,52,1,5 
5,2,53,4,-і 

360 DATA 81,2,64,2,60,2,53,4,64,4,64,2 
»81,2,64, 2, 60,2,53,4,64,2,47,2,53, 4, 64 
,4,72,4,-1 

370 DATA 81,4,81,3,72,1,54,4,64,4,72,3 
»91,1,72,3,64, 1,81, 4, 108,4,81,4,81,3,7 
2,1,64,4,64,4,72,3,81,1,72,3,64,1 

375 DATA 81,4,-1 


Notice that, at line 210, the computer is instructed to READ P 
and also note that IF Р--1 THEN SOUND 0,0,0,0 which shuts the 
sound off. The -1 is a flag to indicate that a tune has been finished. It 
is used in the same way here as it was used in the short program in 
the introduction to this part. Also note that lines 300 to 375 contain 
the tunes, each one ending with a -1. If you want to create tunes for 
your own version of the game, simply replace these data statements 
with the numbers corresponding to the notes in your tunes. 


The Noisy Match or, as we've called it, Noisy Concentration 
uses the same grid as Music Match and is played in the same way. 
However, it uses the special effects sounds that you can make with 
the SOUND function of the Atari 800. It is an easier game to play 
than Music Match and you might want to begin with it rather than 
with Music Match. 
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100 КЕМ www NOISY CONCENTRATION www 
110 GOTO 400 

200 GOSUB 300+R#10: SOUND 0,0,0,0: SOUND 
1,0,0,0: RETURN 

ЗОО FOR T=1 TO 3:FOR J=20 TO O STEP -1 
: SOUND 0O,J,10,10: NEXT J:NEXT T:RETURN 

S10 RESTORE 310:FOR J=1 ТО 6:READ L:FO 

R T-1 TO 8:SOUND 0,L,10,10: SOUND 0,L+2 
310,10:МЕХТ T:NEXT J:RETURN 

S15 DATA 12,6,7,11,5,9 

520 FOR Т=0 ТО 100 STEP 2: SOUND 0,Т,10 
,10: SOUND 1,100-T,10,10:NEXT Т: RETURN 

550 FOR T=12 TO 5 STEP -1:FOR 1-15 TO 

О STEP ~2: SOUND О, Т, 10,1: NEXT L:NEXT T 
: RETURN 

540 FOR T=1 TO 9:SOUND O, T#T, 10, 10:FOR 
J=T TO T*10: SOUND 1,1,10,10:МЕХТ Ј: МЕ 

XT T: RETURN 

550 FOR T=1 ТО 40:SOUND 0,5,4,10: SOUND 
1,5,4,10:МЕХТ T:RETURN 

360 FOR T=1 TO 25:FOR JzO TO 1:SOUND O 
;232*J,10,10: SOUND 1,254+J, 10, 10: NEXT 

Ј: МЕХТ T:RETURN 

370 FOR T-O TO 18 STEP 2:SOUND O,T,2,1 

S:FOR 1-1 TO SO:NEXT J:NEXT Т: RETURN 

400 DIM А$% (16) „ОФ (36) ,D$(1),X(15),YC15 
),K(1),R(1),S(1) : GRAPHICS О:РОКЕ 752, 1 
"2 :ОРЕМ #1,4,0,"K:" 

410 RESTORE 900:FOR T=1 TO 36:READ K:G 

(Т.Т) =CHRS(K) МЕХТ Т 

420 L=0:FOR Y=0 TO 3:FOR Х-о TO 3:X(L) 

zi16tX42:Y(L)27*Y*2:L-5L*1:NEXT X:NEXT Y 

500 ? CHR$(125):POSITION 6,2:? "ижи NO 
ISY CONCENTRATION ###":POKE 82,15 

510 POSITION 15,6:? 6%(1,9):7 8$(10,18 
):ҒОК T=1 TO 3:? 86(19,27):? G$(10, 18) 
NEXT Т:? 6% (28,52) :РОКЕ 82,2 

520 FOR Тео ТО 15:POSITION X(T), Y(T):? 
CHRS (65+Т) SNEXT Т: ASS 4H 
#"SFOR Тхо ТО 7:FOR 4-0 TO 1 

SSO R=INT(CRND(1)#16)+1° IF АФК, К) <> "а" 
ТНЕМ 550 

540 А$ (К, К) =STRS$ (Т) - МЕХТ Ј:МЕХТ T:MM-O 
:5 (0) =0: 5 (1) =0:РІ=0: GOSUB 800 


600 POSITION 4, 12:7 " "SIF PL=0 
THEN POSITION 4, 12:7 "PLAYER 1" 
610 POSITION 27,12:7 " “SIF PL= 


1 THEN POSITION 27,12:7 "PLAYER 2" 

620 FOR С=0 TO 1 

630 D$=STR$ (O) :POKE 702,64:GET #1,K:K= 
K-65: 1F K<O ОК К>15 THEN 630 

640 IF C=1 THEN IF K-K(O) THEN 630 
650 IF AS(K+1,K+1)="%" THEN 630 
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560 POSITION X(K),Y(K):? "#"=R=VAL CAS 

К+1,К+1)) :6050В 200:K(C)=K:R(C)=R: NEXT 
C:IF R(O)=R(1) THEN 700 

670 FOR С=О TO 1:POSITION X(K(C)),Y(K( 
C)):PRINT CHR$ (65+K (С) ) :NEXT СІРІ -1-РІ. 
:GOTO 500 

700 FOR С=О TO 1:POSITION X(K(C)),Y(K¢ 

C)» PRINT CHR$(160):4$(K(C) *1,K(C) +1) = 
"ж": NEXT C:S(PL) =5 (PL) +10: GOSUB 800 
710 MM=MM+1: IF MM<8 THEN 600 

720 POSITION 2,17:1F S(0)=S(1) THEN ? 
"TIE GAME'";:GÜTO 750 

730 T=1:IF 5(1)>5(0) THEN Те? 

740 ? "YOU DID IT PLAYER ";T 

750 POSITION 12,21:? "PRESS ANY KEY... 
“:РОКЕ 764,255 

760 IF PEEK (764) 2255 THEN 760 

770 POKE 764,255: GOTO 500 

ВОО POSITION 4,8:? "SCORE: ";5 (0) :РОЅІ 

TION 27,8:7 "SCORE: "$5 (1) : RETURN 

900 DATA 17,18,25,18,22,18,25,18,5,124 
, 52,124, 32, 124,32, 124,32, 124, 1,18, 19,1 
8, 19,18, 19, 18, 4, 24, 18, 24, 18,24, 18,24 

910 DATA 18,3 


If you compare the programs for these two games youll see that 
they are essentially identical except for the DATA statements on 
lines 200 to 375. Here are the data lines for Noisy Concentration. 
Notice that they change the B variable in the SOUND A,B,C,D com- 
mand. You can fiddle around with them and create your own effects. 


200 GOSUB 300+R#10:SOUND O, O, O, O: SOUND 
1, O, O, 0: RETURN 

300 FOR T=1 TO 3:FOR J=20 TO O STEP -1 
: SOUND 0,J,10,10:NEXT J:NEXT Т: RETURN 

310 RESTORE 310:FOR J=1 ТО &:READ L:FO 

R Т=1 TO 8:SOUND 0,L,10,10:SOUND 0,L+2 
,10,10:NEXT T:NEXT J:RETURN 

315 DATA 12,6,7,11,5,9 

520 FOR Т«О TO 100 STEP 2:SOUND 0,T,10 
»10:SOUND 1,100-T,10,10:NEXT T:RETURN 

550 FOR T=12 TO 5 STEP -1:FOR (515 TO 

О STEP -2:80UND 0,Т7,10,1:МЕХТ L:NEXT Т 
: RETURN 

340 FOR T=1 TO 9:SOUND 0,T#T,10,10:FOR 
J=T ТО T+10:SOUND 1,1,10,10:МЕХТ J:NE 
XT T:RETURN 

350 FOR T=1 TO 40:SOUND 0,5,4,10:S0UND 
1,5,4,10:NEXT T: RETURN 
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360 FOR T=1 TO 25:FOR 1-0 TO 1:SOUND O 
»252+3,10,10:SOUND 1, 254+J, 10, 10:NEXT 

J:NEXT Т: RETURN 

370 FOR Т=0 TO 18 STEP 2:SOUND 0,T,2,1 
S:FOR Jesi ТО SO:NEXT J:NEXT T:RETURN 
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A... utility is a program that can be used in many 


different contexts. A good example of a utility is a word processing 
program. Such programs сап be used'to write business or personal 
letters, take notes, or write a poem, novel, or science fiction book. It 
can also be used to lay out a newsletter or advertising brochure. You 
determine the use given the constraints of the program. Without your 
use, however, it does nothing. This is quite different than, say, a 
preprogrammed game that runs one way and can only be used as the 
programmer intended. 

In this section we'll provide you with a number of simple utili- 
ties. For example, one may be the world's cheapest and shortest word 
processor. Others will allow you to tailor graphs for yourself, to set up 
a ballot and ballot counter, and turn your computer into a calculator. 
Some of the utilities will have wide applications and others will be 
more specialized. Once you begin to feel comfortable as a programmer 
you should think of creating a library of your own utilities and sub- 
routines that is stored on disk. That way, you will be able to add them 
to other programs you build or use them without having to go 
through the tedious process of typing them in. It's a good idea to 
number your subroutines and utilities beginning somewhere around 
2000. That way, you can add them onto other programs just by load- 
ing them on top of programs that have lower numbers. 
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Scratch Pad: A Mini-Word Processor 


This program provides a quick and easy 40-column word processor. 
When you run this program, you'll see nothing but a blank screen and 
the cursor. That's how it should be. There are no frills here, just a 
blank page for you to write on. Type anything you want. Use upper 
and lower case letters. All of the normal editing functions of the Atari 
are available to you, including clear screen, insert space, delete space, 
backspace, line insert and delete, and tab. When you near the end of a 
line, press RETURN just as you would on a typewriter. After you are 
done and want to print out what you have written, turn on your 
printer and press the START key. Whatever is on the screen will 
print out. To stop the printing before it's finished, press START 
again. 

Heres a little shape poem created with the sketch pad and 
‘printed out on an EPSON MX-80 printer: 


оу оу 
LOVE LOVE 
LOVELOVY LOVELOVE 
LOVELOVELOVELOVELOVEL 
LOVELOVELOVELOVELOVELOV 
LOVELOVELOVEL OVELOVEL 
LOVELOVELOVELOVELOY 
LOVELOVELOVELOVEL 
LOVELOVELOVELOV 
LOVELOVELOVEL 
LOVELOVELOV 
LOVELOVEL 
LOVEL DV 
LOVEL 
Lov 
L 


100 REM жжж SCRATCH PAD www 
110 GRAPHICS O:DIM T$(40) 

120 OPEN #1,4,0,"K:" | 

200 IF PEEK(53279)=6 THEN 500 
210 IF РЕЕК (744) 2255 THEN 200 
220 GET #1,K 

230 IF К>27 AND K<9& THEN 400 
240 ТЕ К>95 AND К<125 THEN 400 
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250 IF K>123 AND K<128 THEN 400 

260 IF К>154 AND K<160 THEN 400 

270 IF К=254 OR K=255 THEN 400 

280 IF PEEK (694) <>0 THEN POKE 694,0 
290 IF PEEK (702) >64 THEN POKE 702,64 
300 GOTO 200 

ДОО PRINT СНАФ (К) : 

410 БОТО 200 

2300 TRAP 200 

210 М=РЕЕК (ВВ) +256#PEEK (89) 

520 FOR Ү=0 ТО 23: B=M+Y*40 

550 FOR Х=0 ТО 39:T=PEEK (B4) 

540 IF T<64 THEN T=T+32 

550 T$(X+1,X+1)=CHRS(T)*©NEXT X 

560 LPRINT Т% 

270 IF РЕЕК(53279)-6 THEN 500 

580 NEXT Y:GOTO 200 

600 IF PEEK (53279) =6 THEN 600 

610 GOTO 200 
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Graph Generator 


This short program will produce a bar graph with up to 20 different 
bars. You can enter as many as 20 different labels and values. You can 
use up to seven-place numbers. The program will automatically scale 
the values you place in it so that what you will see is a graph of the 
relative sizes of the values of your labels. The values will also be 
printed out next to the labels as in this graph of the LOVE/HATE 
continuum: 
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In each graph, the largest number will fill up the entire space 
allotted to the graph. Here is the program, followed by some sugges- 
tions of the kinds of graphs you might want to experiment with: 


100 КЕМ www GRAPH GENERATOR xxx 

110 DIM V(19),G8(2),T$ C30) ,L$(46) „АФ (120 
) : GRAPHICS О:РОКЕ 752, 1:G6(0)=22:G6(1)=2 
29:G(2)2130:POKE 82,1 

200 PRINT CHR$(123):POSITION 10,1:PRIN 
T "BAR GRAPH GENERATOR" 

210 POSITION 3,3:PRINT "GRAPH TITLE: " 
3: INPUT T$:POSITION 2,3:PRINT CHRS (156 
) 


220 MzO:FOR Т-О TO 19:POSITION 5.Т%3:Р 
RINT "A"; T*1:POSITION 7,T+3:PRINT "LAB 
EL: VALUE: " 

250 POSITION 14,T+3: INPUT L$ 

240 TRAP SOO:POSITION 30,T+3: INPUT V 
290 IF У>М THEN M=V 

260 A$S(OT*6*1,T*6*-6) -L$:V(T) =VENEXT Т 
ЗОО TRAP 40000:L=T-1:PRINT CHR$(125):P 
OSITION 20-LEN(T$)/2,1:PRINT T$ 

510 M=100/M:FOR Тео TO L:POSITION 1, T+ 
S:PRINT AS(T#6+1,7#5+6) : POSITION 8, т+5 
:PRINT V(T) 

ЗОО K=INT(V(T)*M):HV=INT(K/4):LV=K-HV* 
4:POSITION 15, T+3 

510 IF HV>O THEN FOR J=1 TO HV:PRINT C 
HR$(160)3:NEXT J 

220 IF LV>O THEN PRINT CHR$(G(LV-1)) 
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530 NEXT T:POSITION 15,23:PRINT "Press 
START"; 

600 IF PEEK(53279)<>& THEN 600 

610 POKE 764,255:80T0 200 


Some graphing ideas: 


€ Graph school grades. 

€ Graph your monthly expenses and see the relative proportions of 
your income that you spend on food, rent, entertainment, etc. 

е Graph income distribution, age distribution, voting patterns, and 
other demographics of your community. 

е Graph the won-lost percentages of your favorite teams and see 
which teams have done the best over a period of time. 

* Do a personal preference test or a survey of people's favorite 
records or movies and see the relative positions of the first 20 
printed out in graph form. 
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This is a voting utility. It allows you to set up anywhere from 1 to 5 
different offices or positions to vote for. In each position, you can 
have up to five candidates. After the ballot is set up you can use your 
Computer as a voting machine or you can tally individual ballots with 
it yourself. You can save your ballot on disk, load it any time you 
want and have tallys of the results of the voting listed out for you as 
in this screen dump for the election of a HICH MUCK MUCK: 
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THE OFFICIAL BALLOT 


HIGH MUCK MUCK 


CRAZY сат 
FELIX 


This utility can be used for school or club elections, popularity 
polls, voter preference surveys, etc. . . . anything that requires a vote 
can be recorded and tallied using it. 


100 REM ### THE BALLOT BOX www 

110 DIM A$ (150) , B$ (750) , T$(30) ,C (4) , VC 

4,4) : ОРЕМ 41,4,0,"K:":GOSUB 910 

120 GRAPHICS О: РОКЕ 752, 1:7 : рата 1. S 
et up the ballot,2. Save ballot to dis 
К,З. Load ballot from disk,4. Vote 

200 GOSUB 900: RESTORE :FOR T=1 TO 4:RE 

AD T$:? T$:? :NEXT Т 

210 GET #1,K:K=K-48: IF K<1 OR K»4 THEN 
210 

220 ON K GOTO 300,500,550, 400 

ЗОО GOSUB 910:GOSUB 900:? "HOW MANY OF 
FICES? (1-5)":GET #1,P:P=P-49:IF P«O 0 
R P>4 THEN 300 

510 FOR M=0 TO P:GOSUB 900:? "ENTER NA 
ME OF OFFICE 4";M*1:? : INPUT T$:IF T$- 
"" THEN MzM-1:NEXT M 

520 AS(M¥30+1,M#30+30) =TS 

550 GOSUB 900:? Т%:? :? "HOW MANY CAND 
IDATES? (1-5) ": СЕТ #1,C:C=C-49:IF C«O 
OR C>4 THEN 330 

540 C(M)=C:FOR Тео TO C:POSITION 2, 10+ 
Тя2:? СНКФ (156) : РОЅІТІОМ 2,10+T#2:7 "C 
ANDIDATE #"3T+13" “3: INPUT T$ 

350 IF T$="" THEN T=T-1: NEXT Т 

360 BS (M#1504+T#30+1,M#150+T#30+30) -Т%: 
NEXT Т:МЕХТ M:GOTO 200 
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500 TRAP 520:CLOSE #2:0PEN #2,8,0,"D:B 
ALLOT. DAT": PUT %2,Р:ҒОК T=O TO P:PUT И 
2-С(Т):МЕХТ Т 

510 FOR M-O ТО P:? #25 A$ (M#SO+1 , M#SO+3 
O):FOR T=O TO C(M):? #2; BS (M¥#150+T#30+ 
1,M*150-T430-*30) :NEXT T:NEXT М 

320 CLOSE #2:GOTO 200 

550 TRAP S20:CLOSE #2: OPEN #2,4,0,"D:B 
ALLOT.DAT": GET #2,P:FOR T=O TO P:GET % 
2,К:С(Т)-К:МЕХТ Т 

560 FOR М=0 TO P:INPUT #2; ТФ: AS (M+30+1 
s M#30+30)=T$:FOR T-O TO C(M): INPUT #25 
T$: BS (M¥#150+T#30+1, M¥150+T#30+30) СТ 
570 NEXT T:NEXT M:GDTO 520 

600 FOR T-O TO 4:FOR 2-0 TO 4:V(T,J)=0 
:NEXT J:NEXT T 

610 GOSUB 900:? "PRESS START TO CAST Y 
OUR BALLOT":? :? "PRESS OPTION TO END 
THE VOTING" 

620 IF PEEK(53279) =5 THEN ВОО 

650 IF РЕЕК(55279)<>6 THEN 620 

700 FOR М=0 TO P:GOSUB 900:? A$(M*3O-*1 
s M*30+30) :FOR Т-О TO C(M) POSITION 2,1 
O+T#2 

710 ? T*1;". "3 В% (Мж150+Тт#50+1 , M 1504 T 
#30+30) : МЕХТ Т 

720 GET #1,V:V=V-49:IF У<О OR V>C(M) Т 
HEN 720 

750 V(M,V)=V(M,V)+12NEXT M:GOTO 610 
ВОО FOR М=0 TO P:GOSUB 900:? AS(M*30+41 
s M¥30+30) :FOR TO TO C(MD 

810 POSITION 2,10%Т%2:? BS (M#150+T#30+4 
1,M#150+T#30430) 3V(M, TO : NEXT. T: POSITIO 
М 14,221? "PRESS SELECT" 

820 IF РЕЕК (55279) <>5 THEN 820 

830 NEXT M:GOTO 200 

900 ? CHR$(125):POSITION 8,21? "THE OF 
FICIAL BALLOT BOX":POSITION 2,6: RETURN 


910 B$(10-" "3:BS(750) =" “2В%(2)-В%:А%- 
BS: RETURN 
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Address Card File 


The Address Card File can be used to store filing cards with any six 
different pieces of information. The form we are providing asks a 
persons name, address, city/state, home phone, and work phone; it 
also provides an extra line for remarks as in this entry: 


1 
2 
3 
4 
5 
e 
7 
а 


. 
- 
= 
. 
. 
= 
2 
= 


Игр TTT 
Ü Ó Û mm 
Cu mmo 


As you can see, the bottom of the screen shows you the options 
available to you with the program. You can flip forward and backward 
to see other cards, begin at any letter (the program automatically 
alphabetizes your entries), add a new entry, change an old entry, and 
save and retrieve your cards on disk. Here is the program: 


100 REM ### ADDRESS CARD FILE www 

110 AZ=150:FZ=150:SZ=AZ#150:DIM М6(67) 
» B$ (FZ), K$(FZ),T%(25):0PEN #1,4,0, "K: " 
:GOSUB 810: BS=N$ 

120 C=AZ—1:P=C: GRAPHICS О:РОКЕ 752,1:P 
ОКЕ 82,2:POSITION 7,2:? "жия ADDRESS С 
ARD FILE *##*":POSITION 2,6 

130 FOR T=1 TO 6:READ T$:FOR J=1 TO 10 
:? CHR$(128*ASC(T$(J,J))) ;5 : NEXT. J: PRIN 
T :NEXT T 
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140 POKE 82,10:POSITION 10,15:FOR T=1 
TO 8:READ T$:? Ts". "Ете: МЕХТ T:GOSUB 
850 

200 GET 41,K:K-K-48:IF K<1 OR K»8 THEN 
200 

210 POP :РОР :0М K GOTO 300,350, 400, 45 
O, 500, 550, 600, 650 

ЗОО PzP-1:1F P<C+1 THEN Р-А2-1 

510 GOSUB 850: 6OTO 200 

350 P=P+1:IF Р-А2 THEN Р=С+1:1Е P=AZ T 

HEN P=AZ-1 

360 GOSUB 850:GOTO 200 

400 POSITION 2,4:? "WHICH LETTER?":GET 
#1,К:КФ=СНКФ (К©:ІЕ КФ>-"а" AND K$c-"z 
" THEN K$=CHR$ (K-32) 

410 IF K$<"A" DR K$>"Z" THEN 440 

420 FOR J=AZ-1 TO C+1 STEP -1:1F N$(J* 

Ғ2%1,2%4Ғ2%1)<К% THEN NEXT J:GOTO 440 

430 P=J:GOSUB 850 

440 POSITION 0,4:? B$(1,39):G0TO 200 

450 GOSUB 800 

455 POKE 82,13:FOR Т=0 TO S:POSITION 1 

3,4+T:POKE 752,0: INPUT T$:IF T>O THEN 

GOTO 470 

460 FOR J=AZ-1 TO C STEP -1:1F TS>NS(J 

*FZ+1,J*FZ+25) THEN NEXT J:J=J+1 

465 N$(1,J*#FZ)=N$ (151, (J+1) #FZ) INS (JHE 

Z+1, J#FZ+FZ) =В% 

470 NS (J*FZ+T*25+1, J*FZ+T#25+25)=T$: NE 

XT T:POKE 752,1:P=J:GOSUB 850: C=C-1: 60 

TO 200 

500 GOSUB 510:GOSUB 850:GOTO 200 

510 IF С-А2-1 THEN RETURN 

520 FOR J=P TO C+1 STEP -1:K=J-1:N$(J* 

FZ+1,J*FZ+FZ)=N$ (K#FZ+1,K*FZ+FZ) :z NEXT 

J 


S30 C=C+1:IF P=C THEN P=AZ-1 

540 RETURN 

SSO IF C=AZ-1 THEN 200 

560 GOSUB 520:6010 455 

600 POSITION 5,4:? “REPLACE FILE IN МЕ 
MORY? Y/N":GET #1,KIIF CHR$(K)-"Y" DR 

СНАФ (К) ="у" THEN 620 

610 POSITION 0,4:7 B$(1,39):CLOSE #2: 65 
OTO 200 

620 TRAP 610:CLOSE #2: 0РЕМ 42,4,0,"D:A 
DDRESS. DAT" 

630 GET #2,C:FOR J=AZ-1 TO C STEP -1:I 
NPUT #2,K$:NS(J#FZ+1, JHFZ+FZ) -K$: NEXT 

J:P=AZ-1:GOSUB 850:GOTO 610 

650 POSITION 3,4:? “REPLACE FILE ON DI 
SK? Y/N":GET #1,К:ІҒ CHR$(K)<>"Y" AND 
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CHRS(K)<>"y" THEN 610 

660 TRAP 610:CLOSE %2:ОРЕМ #2,8,0,"D:A 

DDRESS.DAT":PUT #2,C 

670 FOR J-AZ-1 TO C STEP -1:PRINT #23N 

%(0%Ғ7%1,02%Ғ2%Ғ2) : NEXT J:GOTO 610 

800 FOR Тео TO S:POSITION 15, 6*T: PRINT 
B$(1,25):NEXT T:RETURN 

810 N$(1)-" "INS(SZ)=" ":IN$(2)-2N$:RETU 

RN 

850 POKE 82,13:POSITION 15,6:ҒОК T2O Т 

O 5:? " "SNS (P*#FZ+T*25+1,P*FZ+T*25+25) 
:NEXT Т: RETURN 

900 DATA Name s Address . ,City/St 

ate,Home Phone, Work Phone, Remar ks a F 
lip forward,Flip backward 

910 DATA Flip to letter,Add a new card 
s, Delete current card, Modify current ca 

rd,Load file from disk 

920 DATA Save file to disk 


Although the program is set up for addresses, it can easily be 
changed so that you can put recipes on it or organize a collection. For 
example, if you collect baseball cards, you can set up the program so 
that it stores: 


PLAYERS NAME: 
TEAM: 

POSITION: 

BATTING AVERAGE: 
FIELDING PERCENT: 
COMMENTS: 


To do this, you have to change the data line 900. If you also want to 
organize your baseball cards alphabetically by team, put the TEAM 
category first and all of the players on the same team will be grouped 
together. 
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A Calculator Utility 


For all of the sophistication of home computers, it can become frus- 
trating when you can't use them as simple calculators. In the future, 
calculator functions will probably be built into the machines. How- 
ever, if you don' feel like waiting, here is a simple program you can 
copy and save to disk that will allow you to use your computer as a 
calculator whenever you care to. You can also add this program to 
other programs and build in a small calculator to games or other 
programs where fast calculation is useful. 

To use this program, you enter values and operators [+—*/=J) as 
you would with any calculator. Press "C" for a complete clear. Press 
ESC to clear only the current entry. Press “S” to change the sign value 
of the value currently in the window. 


100 REM wee THE CALCULATOR xxx 

110 DIM T$(16),K$(1),D$ (1? :OPEN #1, 4,0 
a "K: "GRAPHICS O:POKE 752,1 

120 ? CHR$(125):POSITION 15,6:? "THE С 
ALCULATOR": POSITION 10,8:? CHR$ (17); 
130 FOR T=1 TO 18:? CHRS$(18)3:NEXT 1:2 
СНЕ5 (S) : РОЅІТІОМ 10,9:? CHR$(124) : POS 
ITION 29,9:? CHR$(124):POSITION 10,10 
140 ? CHR$(26)3:FOR T=1 TO 18:? СНЕФ (1 

8);:NEXT T:? CHRS(3) 

150 T$="" 

200 D$-STR$(O):GET #1, K:IK$=CHRS(K) 

210 IF K$="+" THEN P=1:POSITION 34,9:P 

RINT “+":GOTO 500 

220 IF K$-"-" THEN P=2:POSITION 34,9:P 

RINT "-":GOTO 500 

230 IF K$z"*" THEN P=3:POSITION 34,9:P 

RINT “#*":GOTO 500 

240 IF K$="/" THEN P=4:POSITION 34,9:Р 

RINT "/":GOTO 500 


250 IF К%="=" THEN GOSUB 900:FFz1:464-0 
: GOTO 150 

260 IF K$="C" THEN GOSUB 400: AA=0: КМ=0 
:N-0;P-O:POSITION 34,9:PRINT " "БОТО 
150 

270 IF K$-CHR$(27) THEN GOSUB 400:N-0: 
GOTO 150 
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280 IF K$="." THEN 300 

290 IF K$-"S" AND М<>0 THEN N-—-N:T$-ST 
R$ (N) : GOSUB 400:GOTO 340 

295 IF К%<"О" OR K$>"9" THEN 200 
500 IF LEN(T$)=16 THEN 200 

310 TS(LEN(TS$) +1) =K$ 

520 ТЕ T$<>"." THEN N=VAL (T$) | 
330 IF FF=1 THEN GOSUB 400:FF=0 
540 POSITION 28-LEN(T$),9:PRINT T$ 
350 GOTO 200 

400 POSITION 12,9 


410 PRINT " "3 RETURN 
ЗОО FF=1:IF AA=0 THEN AA=1: KN=N: KP=P:6 
OTO 150 


310 IF KP<>P THEN T=P:P=KP:KP=T: GOSUB 
900: P=KP: GOTO 150 

520 GOSUB 900: GOTO 150 

900 ON P GOTO 910, 920, 930, 940 

910 N=N+KN: GOTO 950 

920 N=KN-N: GOTO 950 

930 N=N*¥KN:GOTO 950 

940 IF М<>0 THEN N=KN/N:GOTO 950 

950 T$=STR$(N):GOSUB 400:POSITION 28-L 
EN(T$),9: PRINT T$:KN=N: RETURN 


Dungeon Dice 


This utility allows you to choose the number of dice you want to roll 
and the number of sides per die. You can choose up to 8 dice and up to 
20 sides per die. In addition, it calculates the percentage of the possi- 
ble maximum score that your roll produces. For people who have 
played Dungeons and Dragons, the convenience of this program will 
probably be apparent. For anyone who wants to design a computer 
game with a complex element of choice built in, this can be a useful 
game subroutine. 

Here is an example of what the program can do. Suppose you 
choose to roll five 10-sided dice. The computer will print out the 
results on each die and then tell you the percentage of the maximum 
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score that your roll achieved. (In this case the maximum is 5“ 10-50.) 
Here is а possible roll: 


DIE 1 2 3 4 5 
SCORE 5 7 3 9 1 
PERCENTAGE=(TOTAL/50)*100=25/50*100=50% 


100 REM *X*X* DUNGEON DICE www 

110 DIM D$(26):DATA 17,18, 18,5, 29, 50,35 
O, 30, 30, 124, 32, 32, 124, 29, 30, 30, 30, 30,2 
6, 18, 18,3, 28, 30, 30, 30 

120 GRAPHICS O:POKE 752,1:? :FOR Теа T 
О 26:READ K:D$(T, T) =CHRS (K) : NEXT T 
200 GOSUB 500:POSITION 2,6:2? “HOW MANY 
DICE? (1-8) “$3: INPUT N:IF Ме OR ма 
THEN 200 

210 POSITION 2,8:? CHR$ (156) : POSITION 
2,8:? "HOW MANY SIDES? (4-20) "33 INPUT 
S:IF S<4 OR 9520 THEN 210 

220 PzS«N:NzN-1:GOSUB 500 

230 POSITION 8,19:? "PRESS ANY KEY TO 

ROLL":POSITION 6,21:7? "PRESS START TO 

CHANGE DICE":X220- ((N*1)*2) 

ЗОО POKE 764,255 

510 IF РЕЕК(55279)-% THEN 200 

320 IF PEEK (764) =255 THEN 310 

330 FOR Ј=0 TO INT (RND (1) #3) +2: Сто: FOR 
T-O TO N:POSITION X+T#4, 7: R=INT (АМО (1 
)*8)*1:7 DSsR 

340 SOUND O, 15+J, 10, 8: SOUND 1,20+T, 10, 
6:C=C+R: NEXT Т:МЕХТ J: SOUND 0,0,0,0:80 
UND 1,0,0,0 

350 POSITION 15,15:2 “TOTALS ";C;" ": 
POSITION 12,14:? "POSSIBLE: "zp" " 
360 POSITION 10,15:? "PERCENTAGE: "> IN 
T(C/P+100);"% ":GOTO 300 

200 ? СНК (125) :POSIT ION 10, 2:7 "DUNGE 
ON DICE ROLLER": RETURN 
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Circle and Ellipse 


Drawing a circle in BASIC is difficult and time-consuming. Drawing 
an ellipse is almost impossible. Here are four simple programs using 
the trigonometric SINE and COSINE functions that allow you to draw 
circles and ellipses in the Graphics 7 mode of your Atari. They also 
illustrate how you change the size of the circle and ellipse, which you 
can place anywhere on the screen. If you are drawing in BASIC or 
doing animation they are very useful routines to able to call on: 


100 REM Se w: CIRCLE 53 3 

110 GRAPHICS 7:COLOR 1 

120 FOR C=1 TO 22 

130 A=A+0. 28: X=SIN (A) *B: YCOS (A) +В 
140 PLOT X+80, Y+40 

150 NEXT C 


100 REM «кж BIG CIRCLE www 

110 GRAPHICS 7:COLOR 1 

120 FOR C-1 TO 22 

130 A=A+0. 28: X=SIN (A) ка: Y-COS (A) #8 
140 PLOT 4#X+80, 4*#V+40 

150 NEXT C 


100 REM wee ELLIPSE www 

110 GRAPHICS 7:COLOR 1 

120 FOR C=1 TO 22 

150 A=A+0. 28: X=SIN (A) #4: YzCOS (A) #8 
140 PLOT X+80, Y+40 

150 NEXT C 


100 REM жғи BIGGER ELLIPSE xxx 
110 GRAPHICS 7:COLOR 1 

120 FOR C=1 TO 45 

150 A=A+0. 28: X=SIN(A) #4: Y=COS (A) *8 
140 PLOT 4#X+80, 4*Y+40 

150 NEXT C 
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Here is an example of the small circle and ellipse: 


Notice that the difference in size is controlled by the PLOT 
commands in line 140 and the size of the FOR-NEXT-loop in line 120. 
Experiment with these and with the POSITION command. Youll find 
that you can do very interesting graphic designs with them in ways 


that almost approximate the ease of Turtle Graphics in Atari Logo 
and PILOT. 
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The Simple Averager 


This program allows you to average numbers. As you enter a list of 
numbers, it gives you a running average and a count of how many 
numbers you have entered. It is convenient for averaging school 
grades, income, or in the climate we come from, daily rainfall. 
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100 REM жиж SIMPLE AVERAGER xxx 

110 GRAPHICS O:POKE 752, 1 

120 ? СНК%(125):РП5ІТІОМ 11,2:? "SIMPL 
E AVERAGER" 

150 POSITION 2,5:? “ENTER VALUES - PRE 
SS START TO CLEAR": POSITION 2,8:? "AVE 
RAGE: VALUES: ": T=O: С=0 

140 TRAP 140:POSITION 2,12:? CHR$ (156) 
POSITION 2,12:7 "?" 

150 IF РЕЕК (55279) =6 THEN 120 

160 IF РЕЕК (764) =255 THEN 150 

170 POSITION 2,12:INPUT N 

180 C-C-*1:T-T*N:POSITION 11,8:7 INT(T/ 
C#100) /100; " "POSITION 31,8:7 С: GO 
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The Egg Timer 


It's not very likely that you have your computer in the kitchen or that 
you'll use it to time your eggs. However, a timing program is a very 
convenient insert into other programs or to use to remind you to 
make a phone call or wake up from a nap. Actually, there are even a few 
kitchen computer freaks who do use their computers to time their 
eggs. 

In this program you enter the number of minutes or seconds 
you want to be timed. The computer will display and count down the 
time, emitting a sound (hopefully pleasant) when it reaches 0. If you 
want, you can change that sound to a Bach fugue or a Mozart sonata. 
Just set up a subroutine at line 310 and set to work programming the 
music of your choice. 
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100 REM #w* THE EGG TIMER www 

110 GRAPHICS О:РОКЕ 752, 1 

120 GOSUB 400:POSITION 14,6:? "SET TIM 
ER...":POSITION 2,10:? "MINUTES: ";:IN 
PUT M 

130 POSITION 2,12:? "SECONDS: “3: INPUT 
S:IF 5<0 OR 5559 THEN POSITION 2,12:P 
RINT CHR$(156):GOTO 150 

140 GOSUB 400:POSITION 19-LEN(STR$(M)) 
9727 М)": ІР S<10 THEN ? "0"; 

150 ? S:POSITION 14,10:? "Press START" 
160 IF PEEK(53279)<>& THEN 160 

170 POSITION 14,10:? " ":POK 
E 20,0 | 

200 POSITION 18-LEN(STR$(M)),7:PRINT " 
"jMP":U"SIIF 5<10 THEN PRINT "О"; 

210 PRINT S 

220 IF PEEK(20)«60 THEN 220 

230 POKE 20,0:S=S-1:IF S<O THEN S-59:M 

-M-1:IF M«O THEN 300 

240 GOTO 200 . 

300 POKE 754,255 | 

S10 FOR P=9 TO 12 STEP 3:FOR T-15 ТО O 
STEP ~1:SOUND O,P,10,T:NEXT T:NEXT P 

520 С=1-С:ІҒ C=1 THEN POSITION 14,10:P 

RINT "PRESS ANY KEY" 

550 IF C=O THEN POSITION 14,10:PRINT C 

HR$ (156) 

540 IF PEEK(53279)=7 AND PEEK (764) =255 
THEN 310 

550 POKE 764, 255: GOTO 120 

400 PRINT CHR$(125):POSITION 9,3:PRINT 
"34 THE EGG TIMER ###“: RETURN 
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The Wise Shopper 


This program converts the price of a product to its price per ounce or 
per gram which is useful for comparison shopping. Sometimes, big 
boxes contain a lot of empty space and buying by unit weight can 
save you money. To use the program, enter the product's total price 
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and then choose ounces or grams before you enter the product 
weight. 


100 КЕМ ### THE WISE SHOPPER xxx 

110 GRAPHICS O:POKE 752,1:0PEN #1, 4,0, 
“Ke at 

120 ? CHR$(125):POSITION 8,2:? “xxx TH 

E WISE SHOPPER *#*":POSITION 2,6 

130 TRAP 120:? "ENTER TOTAL PRODUCT PR 
ICE: ";:INPUT P 

140 ? :? "WEIGHT IN (1)OUNCES OR (2)GR 

AMS?" 

150 GET *1,K:KzK-48:IF K<1 OR K>2 THEN 
150 

160 TRAP 160:POSITION 2,10:? CHR$(156) 

:POSITION 2,10:? "ENTER WEIGHT IN ";:I 

F K=1 THEN ? “OUNCES: "; 

170 IF K=2 THEN ? “GRAMS: "; 

180 INPUT W:IF K=1 THEN G=INT (28. 3Sxux 

100) /100 | 

190 ТЕ K=2 THEN G=W:W=INT (6/28. 554100) 

/100 

200 POSITION 2,13:? "OUNCES: "sW:POSIT 

ION 2,15:? "PRICE PER OUNCE: ";INT(P/W 

#10000) /100;" CENTS" 

210 POSITION 2,17:7 "GRAMS: ";6:POSITI 

ОМ 2,19:? "PRICE PER GRAM: "3:T=INT(P/ 

G*10000)/100:1F T>O THEN ? T;" CENTS" 

220 IF T=O THEN 2 “-" 

230 POSITION 13,22:? "PRESS ANY KEY":P 

ОКЕ 724, 255 

240 IF PEEK (744) 2255 THEN 240 

250 РОКЕ 764,255:GOTO 120 
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Metric Converts 


This is a simple conversion utility. It allows you to convert the fol- 
lowing pairs into each others units of measurement: centimeters/ 
inches; meters/yards; and kilometers/miles. 
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100 REM жжж METRIC CONVERTS www 

110 GRAPHICS O:POKE 752,1:0PEN #1, 4,0, 
"к= п 

120 ? CHR$(125):POSITION 11,2:7 "METRI 

С CONVERSIONS":POSITION 2,5 

130 ? “1. CENTIMETER ТО INCH":? "2. МЕ 

TER ТО YARD":? “5. KILOMETER TO MILE" 
140 ? "4. INCH TO CENTIMETER":? "S. YA 

RD ТО METER":? "6. MILE TO KILOMETER" 
150 BET #1,K2K=K-48:IF K<1 OR K>& THEN 
150 

160 POSITION 2,14:FOR T=1 TO 3:7 CHR$( 

156):NEXT T:POSITION 2,14:0N K GOTO 20 

0,210,220, 230, 240, 250 

200 ? "CENTIMETERS "3: INPUT N:A=N#0. 39 

4:2? 2? "INCHES "3A:GOTO 150 


210 ? "METERS "3: INPUT N:AzN*1.094:7? : 
? "YARDS "3A: GOTO 150 
220 ? “KILOMETERS "3: INPUT М: A=N2#0. 521 


4:7 1? “MILES "ЗА: GOTO 150 

250 ? "INCHES ";:INPUT N:A=N#2. 538:7 : 

? "CENTIMETERS “3A:GOTO 150 

240 ? “YARDS "5: INPUT М: A=N#0. 914:7? :? 
"METERS ";A:GOTO 150 

250 ? “MILES “SS INPUT N:A=N#1.6:7 :? " 

KILOMETERS “зА: БОТО 150 


Here are the lines where the conversion formulas are stored. You can 
change them if you want to provide other conversions such as pounds 
into ounces (using the formula OUNCE=POUND*16}, Fahrenheit 
into Centigrade, tons into pounds, yards into feet, etc. 


200 ? “CENTIMETERS "3: INPUT N:A=N#0. 39 

4:? :? "INCHES "Ја: GOTO 150 

210 ? "METERS "3: INPUT М:АсМ%1.094:? : 

? "YARDS "Ја: GOTO 150 

220 ? "KILOMETERS ";: INPUT N: A=N#O. 621 

4:? 1? "MILES "Ја: GOTO 150 

250 ? “INCHES "3 : INPUT N:AzN*2.538:7? : 

? “CENTIMETERS “3A:GOTO 150 

240 ? "YARDS "3: INPUT N:A=N#O. 914:7 :? 
"METERS ";А:бОТО 150 

290 ? "MILES "S: INPUT М: A=N#1.6:7 т " 

KILOMETERS "зА: БОТО 150 
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Decimal /Hex/Binary Conversion 


This program is very useful for people who work with computers. It 
converts numbers from the binary, decimal, and hexadecimal (base 16) 
number systems into equivalent form in the other systems. You can 
Start with any of the three systems and get the equivalent in the other 
two systems. In case you are not familiar with some of these systems 
of numeration, here is a summary of how they work: 


Base 10: Symbols 01253456789 


The base 10 system is the one we all learn first. It has ten symbols and 


uses the powers of ten to change place value. Thus, counting in base 
10 goes as follows: 


1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 
Note that once all the symbols are used up you move over one place 
(from 9 to 10). The powers of ten that are given in the following chart 


determine the values of the symbols: 


103 102 10! 10° 
1000 100 10 1 


Thus, the number 1234 actually means: 

15109 +2+102 +3+10' +4+100 =1234 

You might remember learning this in fifth or sixth grade though most 
people usually forget it quickly since they don't need to know it in 


order to calculate. However, when you move from one base system 
into another the question of place value is crucial. 
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Base 2: Symbols 0 1 


There are only two symbols in base 2: 0 and 1, which is why it is so 
important for computer programming. Every computer is a complex 
and well-organized collection of ON and OFF switches that can be 
represented by ЦОМ) and О[ОЕЕ). The language your computer under- 
stands is base 2 machine language and everything you type in has to 
be translated into a base 2 system before the computer can process it. 
Base 2 functions structurally like base ten. It uses place values only 
they represent powers of 2 instead of powers of 10. Here are the values 
of the first four places in a base 2 number system: 


23 22 2 2° 
value 8 4 2 1 


Here are the numbers from 1 to 10 in base 2: 
1, 10, 11, 100, 101, 110, 111, 1000, 1001, 1010 


To understand this, let's take a closer look at 10 which is represented 
in base 2 as 1010 and translate it to base 10: 


1010-1%23 +0*22 4121 +0*2° =8+0+2+0=10 


Base 2 is а natural language for programming computers. However, 
programming in this machine language is tedious and leads to many 
errors. For example, imagine trying to copy this machine language 
program without making an error or going to sleep: 


1011100010101010 
110000010001 1001 
0110010101010101 
1000001001 100010 
1111100100010101 


In order to facilitate programming on a level that is close to machine 
language and that runs more quickly than BASIC (which has to be 
translated into machine language internally before it can be RUN by 
the computer] an intermediate code using base 16 (called the hexade- 
cimal system) is often used. The reason for this is that four places in 
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the binary system (i.e., 2 to the 4th power of 2*2+2*2) equal 16 and, so, 
one digit in the hexadecimal system can represent four in the binary 
system. Here is the hex symbolism. If you want to learn more about 
this you should consult an introductory book that has a chapter on 
assembly language programming. 


Base 16 Number System (Hexadecimal): 
Symbols 0123456789ABCDEF 


The letters A, B, C, D, E, F represent the base 10 numbers 10, 11, 12, 
13, 14 and 15. 

Counting from 1 to 10 in HEX looks like this: 1, 2, 3, 4, 5, 6, 7, 8, 
9, A. Here are the HEX place values: 


162 16? 16" 16° 
values 4096 256 16 1 


Thus 100A in Hex would be: 
1*16? *0*16? *0*16! +10*16° =4096+0+0+10=5006 in base 10. 


Enough of the details. Here is a conversion program which might 
come in handy if you do machine or assembly language programming: 


DECIMAL/ZHEH/BINARY CONUERSION 


DECIMAL: 245 
НЕМ: FSH 
BINARY: 111101016 


ENTER VALUE: 7 
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100 КЕМ www DECIMAL/HEX/BINARY xs 
110 DIM T$(21),B$1(20) ,H$(5),D$(7) ,E$CS 
7),HH$ (16), B(19), H(4):E$(1)=" "sE$ (37) 
=""":E$(2)=E$:GRAPHICS O:POKE 752,1 
120 ? CHR$(125):POSITION 5,2:? "DECIMA 
L/HEX/BINARY CONVERSION" 

150 D$z"O":H$-D$:B$-D$:GOSUB 400 

140 FOR T=O ТО 4:READ K!IH(T)=K:B(T#4)= 
K:FOR J=1 TO S:READ K:B(1T#4+J) =K:NEXT 
Ј:МЕХТ T:HH$="01234546789ABCDEF" 

200 TRAP 200:POSITION 2,14:? ES:POSITI 
ON 2,14:? "ENTER VALUE: "s;:INPUT T$ 
210 L-LEN(T$):IF T$(L,L)-"B" THEN 400 
220 IF T$(L,L)-"H" THEN 500 

230 D-VAL(T$):D$-T$:IF р>1048575 THEN 
200 

300 R-1:1F D>255 THEN R=3:IF р>65555 Т 
HEN R=4 

510 H$=""K=D:FOR T-R TO O STEP -1:J=I 
NT (K/H(T)) :K-K-JH (T) 2 HS (LEN (H$) +1) HH 
$(J+1,J+1) NEXT Т 

350 R=7:IF D>255 THEN R=15:IF D»65535 
THEN R=19 

360 BS="":K=D:FOR T=R TO O STEP -1:J=I 
NT (K/B(T) ) :K=K-J#B(T) : BS (LEN (BS) +1) =ST 
R$(J):NEXT T:GOSUB 600: GOTO 200 

400 D=0:C=0:FOR T=L-1 TO 1 STEP -1:IF 
T$(T, T) 2"1" THEN D=D+B(C):GOTO 420 

410 IF T$(T,T)«»"O" THEN 200 

420 C=C+1:NEXT T:D$-STR$(D):GOTO 300 
500 р=0:С=0:ҒОВ T-L-1 TO:1 STEP -1:A=A 
SC(T$(T, T)? : IF A>64 AND AC71 THEN A=A- 
55:GOTO 530 

510 IF А<48 OR A>S7 THEN 200 

520 A=A-48 

530 D-D-A*H(C):C-C41:NEXT Т 

540 D$=STR$(D):GOTO 300 

600 FOR T=0 TO 2:POSITION 2,5%2%Т:? E$ 
:МЕХТ T:POSITION 2,5:7 “DECIMAL: ";D$: 
? » 2 " НЕХ? a s HS; "н" 

610 ? :? " BINARY: ";B$;"B":RETURN 
800 DATA 1,2,4,8, 16,32, 64, 128, 256, 512, 
1024, 2048, 4096, 8192, 16384, 32768, 65536, 
131072, 262144, 524288 
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Finale 


41 


A Computer Dating Service 


And now, to end the book (almost} on an up note, here is a very liberal 
dating program. The program is set up to record the answers to 20 
questions after taking your name and phone number and assigning 
you a code number. When you have completed your profile, you can 
store the program on disk. One person a dating program does not 
make. Therefore, you have to gather data from a lot of people before it 
can begin to match their responses and come up with what, from its 
point of view (really our point of view since a computer does not have 
convictions or sets up criteria for matching], is your ideal mate from 
the available pool. 


100 КЕМ ж COMPUTER DATING SERVICE ж 
110 DIM N$ (30) , NA$ (3000) , P$ (15) ‚РАФ (15 
00), T$ (40), Q (99, 19): OPEN %1,4,0,"Кі":М 

A$(1)=" ";NA$ (3000) =" ":NA$ (2) =NA$ 

120 PA$=NA$: GRAPHICS O:POKE 792,1 

150 GOSUB 900:POSITION 2,6:7 "1. Add a 
person to dating pool ":? .? "2. Selec 

t a date" 

140 ? :? "3. Save data bank to disk":^ 
"7 "4. Load data bank from disk" 

150 GET 41,K:K-K-48:IF К<1 OR K>4 THEN 
150 

160 ON K GOTO 500,200, 800, 850 

200 GOSUB 900:? "Enter you I.D. number 
"2? INPUT N:IF М<О OR N>=C THEN 130 

210 ? :? "FINDING A DATE FOR:":? NAS(N 

#350+1,N#30+30):7 PAS (N#154+1,N#15+15) 

220 DD-0: DT=0: FOR T=0 TO C-1: TT20 

230 IF T=N THEN 400 

ЗОО IF Q(N,1)=Q(T,O) THEN TT=TT+50 

505 IF Ө(Т,1) =0 (3,0) THEN TT=TT+50 

310 ТЕ Q(N,3)=Q(T,2) THEN TT=TT+25 

515 IF @(T,3)=Q(N,2) THEN TT=TT+25 

520 IF 0(М,5)-0(7,4) THEN TT=TT+25 

525 IF Q(T,5)-Q(N,4) THEN TT=TT+25 

550 IF Q(N,6)zQ(T, 6) THEN TT=TT+50 

555 IF Q(N,7)=Q(T,7) THEN TT=TT+50 

ЗАО IF Q(N,8)=@(T,8) THEN TT=TT+50 

545 IF Q@(N,10)=Q(T,9) THEN TT=TT+25 

350 IF Q(T, 10)=Q(N,9) THEN TT=TT+25 

555 IF 0(М,11)-0(7,11) THEN TT=TT+25 

560 IF Q(N,12)=Q8(T,12) THEN TT=TT+50 

365 IF Q(N,13)2Q(T,13) THEN TT=TT+25 

370 IF 0(М,14)-О(7,14) THEN TT=TT+25 

575 IF Q(N,16)=Q(7,15) THEN TT=TT+25 

ЗВО IF Q(T,16)-Q(N,15) THEN TT-TT«25 

585 IF Q(N,17)=Q(T,17) THEN TT=TT+25 

590 IF 0(М,19)-0(7,18) THEN TT=TT+25 

595 IF Q@(T,19)=Q(N,18) THEN TT=TT+25 

400 IF TT>DT THEN DT=TT:DD=T 

410 NEXT T:? :? 

420 ? "Your ideal date is:":? NAS(DD*3 

0+1,00#50+50):7 PAS (DD#15+1, DD#15+15): 

FOR T=1 ТО 1000:NEXT T:GOTO 130 

500 GOSUB 900:? "Enter your пате": ? :I 

МРОТ NS: NAS (C#30+4+1,C#30+30) =NS 

510 GOSUB 900:? "Phone Number":? :INPU 

T PS: РАФ (C#15+1,C#15+15) =рф 

220 RESTORE 600:FOR Тео ТО 19:GOSUB 90 

O:READ T$:? TS:READ T$:? T$ 

5350 GET #1,K:K=K-48:IF K<1 OR КУЗ THEN 
530 
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540 Ә(С,Т)-К:МЕХТ Т 

SSO ? 1? М%:і? "Your I.D. number is “$C 
:FOR T=1 ТО 1000:МЕХТ T:C=C+1:GOTO 130 

600 DATA Are you (1)Male (2)Female (3) 

Both, 

605 DATA Do you wish to date a (1)Male 
‚ (2) Female (3) Both 

610 DATA Are you (1) Young (2) Middle-ag 

ed, (5) Old 

615 DATA Is your ideal date (1) Young, ( 

2)Middle-aged (5) 019 

620 DATA How attractive are you (1)Ext 

remely, (2)Moderately (3)Not very 

625 DATA How attractive is your ideal 

date, (1) Extremely (2)Moderately (3)Not 
very 

650 DATA Where would you like to go оп 
a first,date (1)Movie (2) Dancing (32M 

otel 

635 DATA Are you ап (1) Outdoor person, 
(2) Indoor person (3) Both 

640 DATA How important is sex (1) Very, 
(2)Fairly (3)Not very 

645 DATA Are you artistic (1)Yes (2)No 
s (3) Sort of 

650 DATA Would you like your date to b 

e,artistic (1) Yes (2) № (3)Sort of 

655 DATA How do you feel about kids, (1 
JLove them (2)Hate them (3) Both 

660 DATA Do you enjoy alcohol or drugs 
з (1) Yes (2)Мо (3)Sometimes 

665 DATA Which type of music do you 11 
ke most, (1)Classical (2)Rock (3)Countr 
y 

670 DATA How much television do you wa 

tch, (1)Quite a bit (2)Some (S)Very lit 
tle 

675 DATA Are you (1)Wealthy (2)Doing о 
kay, (3) Getting by 

680 DATA Is your ideal date (1)Wealthy 
з (2)Doing okay (3)Getting by 

685 DATA Are your habits (1) Unhealthy, 
(2)Healthy (3)No habits 

690 DATA Are you usually (1) Нарру (2)U 

nhappy, (3) Both 

695 DATA Is your ideal date usually (1 
)Нарру, (2)Unhappy (3) Both 

800 TRAP 820:CLOSE #2: OPEN #2,8,0,"D:D 

ATING.DAT":PUT #2,C:FOR Тео TO C-1:PRI 

NT #2; NAS CT*3O*1, T#30+30) 

810 PRINT %2;РА%6(Т%15-1,Т7%15%15):ҒОК J 
=O TO 19: PUT %2,0(7,2):МЕХТ J:NEXT Т 
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820 CLOSE #2:GOTO 130 

850 TRAP 820:CLOSE #2:0PEN #2,4,0, "D:D 
ATING.DAT":GET #2,C:FOR T-O TO C-1:INP 
UT 42; T$: NAS (T#30+1, T#30+30) - T$ 

860 INPUT 42; T$:PAS(CT*1541, T1515) - T$ 
SFOR J=O TO 19:GET W2,K:Q(T,J)-K:NEXT 
Ј:МЕХТ T:GOTO 820 

900 PRINT CHR$(125):POSITION 9,3:7 "СО 


MPUTER DATING SERVICE":POSITION 2, 6: RE 
TURN 


Notice that the questions are all listed in the following data 
statements: 


600 DATA Are you (1)Male (2)Female (3) 
Both, 

605 DATA Do you wish to date a (1)Male 
s (2) Female (3) Both 

610 DATA Are you (1) Young (2)Middle-ag 
ed, (3)0ld 

615 DATA Is your ideal date (1) Young, ( 
2)Middle-aged (3)01d 

620 DATA How attractive are you (1) Ext 
remely, (2)Moderately (3)Not very 

625 DATA How attractive is your ideal 

date, (1) Extremely (2)Moderately (3)Not 
very 

630 DATA Where would you like to go on 
a first,date (1)Movie (2) Dancing (3M 

otel 

635 DATA Are you ап (1)Outdoor person, 
(2) Indoor person (3) Both 

640 DATA How important is sex (1) Very, 
(2)Fairly (3)Not very 

645 DATA Are you artistic (1) Yes (2)No 
„ (3) Sort of 

650 DATA Would you like your date to b 

e,artistic (1)Yes (2)Мо (3)Sort of 

655 DATA How do you feel about kids, (1 
Love them (2)Hate them (3)Both 

660 DATA Do you enjoy alcohol or drugs 
s (12Үев (2)No (3)Sometimes 

665 DATA Which type of music do you li 

ke most, (1)Classical (2) Воск (3)Countr 


670 DATA How much television do you wa 
tch, (1) Quite a bit (2) Some (3)Very lit 
tle 

675 DATA Are you (1)Wealthy (2)Doing o 
kay, (3) Getting by 
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680 DATA Is your ideal date (1)Wealthy 
„ (2)Doing okay (3)Getting by 

85 DATA Are your habits (1)Unhealthy, 
(2)Healthy (3)No habits 

90 DATA Are you usually (1) Нарру (220 


nhappy, (3) Both 
595 DATA Is your ideal date usually (1 
Happy, (2)Unhappy (3) Both 


The liberality of the program shows in the very first question. It 
allows for you to be male, female, or both. The second question allows 
you to date the sexual preferences of your choice. Of course, you 
might feel this program goes too far. All you have to do is list the data 
statements and change them to suit your own ways of looking at the 
problem of finding a best mate or date. Just be sure that each change 
you make goes on one data line. The weighting factors built into the 
program can also be changed if you have some programming expe- 
rience. Youll find them in the 3005. 


1/2 of Many Things You Can 
Do With Your Computer 


You can use the programs as they are listed in this book. You can also 
consider them program forms that provide a framework for develop- 
ing new programs on your own. Here are a number of ideas that take 
off from the 41 programs we have worked out. They provide you 1/2 
of what you need to develop applications for your computers. The 
other half, the new programs themselves, are for you to work out. 


1 Ал All-Purpose Instrument Tuner 


One of the programs in this book provides a guitar tuner. Using the 
sound capabilities of your computer, you can also create a saxophone, 
clarinet, violin, fiddle, trumpet, or all-purpose instrument tuner. 
Instead of string diagrams, you would have to suit the graphics to the 
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nature of the different instruments and, therefore, have many differ- 
ent graphics screens in your program. 


2 A Music Tutor 


This program would extend the notion of a guitar chord tutor. It could 
show the fingering of woodwinds, the valve positions on brass, etc. 
You could even develop an extensive music teaching program. 


3 A Game Spinner 


You can use some of the same ideas used in the Dungeons and 
Dragons dice maker to create a game spinner. The spinner differs 
from a usual die in that it can have the same values on different 
sections, or it can have verbal instructions or game moves on it. 
Different sections can also be weighted so that there is not the same 
probability of getting each possible result. Here is an example of what 
a spinner might look like: 


MOVE 
5 
TAKE 
NEW TURN 


COLLECT 
$100 
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On the sample spinner there is a greater chance of landing in jai 
than collecting money. Notice that the instructions on the spinne) 
refer to game moves and to paying or collecting money. These differ 
ent modes and weights can easily be incorporated into a customize 
game spinner program. 


4 A Split Screen Note Pad 


Try to create a note pad that splits the screen in half so that you can 
write on either half, or write on one half and make sketches and notes 
on the other half. Try to build in a way to press a letter or number 
which allows you to control which part of the screen you use. 


5 A Calculator with Memory 


Add a memory storage capability to the calculator program so that 
the results of any calculation can be stored and then used at another 
time. 


6 Animated Guessing Games 


Modify the Gestalt guessing game so that you see small figures run- 
ning all around the screen and have to guess how many there are. 
Remember that animation can easily be done using Control graphics 
and clearing the screen after each positioning of your figures. When 
you draw a figure, clear the screen and then draw the figure in a 
slightly different position or posture you create the illusion of 
animation. 


7 Mandala Meditation 


Create your own meditation programs playing with the color function 
of your computer. Add sound to the program and see if you can create 
a multimedia work of art. 


121 


8 Pie Chart and Line Graph Generator 


The bar graph generator presented in the book is only one of many 
graph forms that can be programmed. Try to make a line graph. 
(Remember that the bar graph can easily be turned into a line graph 
by turning it on its side and drawing lines from the top points.) Also 
create a pie graph generator. A pie graph generating program can also 
be used in a game spinner generating program. 


9 Multiple Sorting Address Card File 


Modify the address file program so that you can sort by state, city, 
phone number, and comments as well as by name. What this requires 
is that you build routines similar to the one used in the program in 
this book to do name sorting for each line in the address book entry. 


10 Profile Mug Shots 


Using character graphics, change the Mug Shot program from one 
that uses full faces to one that uses profiles. 


11 Multilingual Dictionary 


Create a multilingual dictionary. For example, create a dictionary in 
five languages. Set up the program so that you have a few entries to 
begin with (for example all the pronouns in five different languages! 
and then new entries can be added and saved on disk. This way you 
will not merely have a multilingual dictionary but a dictionary form. 
As you learn more vocabulary, you build your dictionary. Many of the 
routines needed to create such a program can be taken from programs 
listed in this book (the disk storage routine, for example]. 


12 Prime Number Generator 


Create a program that starts at 1 and lists the first n prime numbers 
for any integer n. Add another routine to the program in which you 
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input any integer and the computer tells you whether it is prime or 
not. 


13 Least Common Denominator 


Here is another homework helper program. Set up the computer so 
that it will list all the common denominators of any two or three 
numbers and also list the least common denominator. 


14 A Book Title Generator 


We included an excuse generator in our 41 programs. See if you can 


create a book title generator using some of the common book title 
forms such as: 


А... bs |) RN In the .............. (2) sc 
List (1) List (2) 

flash pan 

day life 

scream wilderness 


giving such variations as 


A Flash in the Wilderness and 

A Day in the Pan. 

Some other title forms to play with are: The .............. (1) of the 
бараа ыы (2) usa Йа бу Џо uc exec deseri oos 


15 A Code Maker 


Create a program that will scramble the whole alphabet (instead of 
just a word as in our Word Scrambler} and then turn that scrambling 
into a code. The program should let you put in a word or sentence and 
give you the coded version. It should also let you put in a message in 
that code and translate it back into English. 
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41% FUN PROJECTS FOR THE ATARI® i 
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Do you remember the day you brought your shiny new Atari 
home? What an exciting time! At first it seemed as if you could 
think of thousands of ways it would make your life easier, 
better, and more fun. However, if you're like most people, as 

ж. m 
the months rolled by and the novelty of owning a computer 
subsided, routine chores slowly replaced that initial 
antıcıpation. 
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41% FUN PROJ ECTS FOR THE ATARI® gives you 
back that wonderful excitement. One of the first Creative 
Pastimes books, from the Reston Computer Group, this 

-fantastic book shows you 415 good reasons to fall in love with 
your Atari all over again x 

Ina burst of. creative . Dale Disharoon and Herbert Be 

Kohl deliver some resh ideas that you'll find easy to key in 
апа modify. The 41% projects range all the way from a 
dating program to a mini word processor. You'll be e 
absolutely obsessed with a Dungeons and Dragons dice 

rolling program, and you'll probably want to take full 
advantage of the innovative strategy and music games. 
Practically speaking, programs such as a guitar tuner | 


and chord teacher, a metric converter, and a kt 
comparison shopping program truly make your life 4 A 
easier. 
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